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SUMMARY 


An investigation was carried out to complete the preliminary 
development of a combined perturbation/optimization procedure and 
associated computational code for designing optimized blade-to- 
blade profiles of turbomachinery blades. The overall purpose of 
the procedures developed in this study is to provide demonstration 
of a rapid nonlinear perturbation method for minimizing the compu- 
tational requirements associated with parametric design studies 
of turbomachinery flows. The method reported here combines the 
multiple-parameter nonlinear perturbation method , successfully 
developed in previous phases of this study , with the NASA TSONIC 
blade-to-blade turbomachinery flow solver , and the COPES-CONMIN 
optimization procedure into a user's code for designing optimized 
blade-to-blade surface profiles of turbomachinery blades. Results 
of several design applications and a documented version of the 
code together with a user's manual are provided. 
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1 . 


INTRODUCTION 


The remarkable success of advanced computational methods for 
determining complex fluid dynamic phenomena has created a con- 
tinuing demand both for increasing the accuracy and generality of 
these methods, as well as the desire to incorporate these methods 
into a routine use mode needed for design and parametric investi- 
gations. However, a major impediment to such routine use of many 
of these current and emerging computational codes is the high 
computational cost required in their direct application 
to situations requiring repetitive high-frequency use. Conse- 
quently, a real need exists for determining the means to reduce 
these costs while retaining the required accuracy in such non- 
linear applications. While this need exists in virtually all 
engineering applications when relatively sophisticated numerical 
codes are employed, for turbomachinery applications it is partic- 
ularly severe since both the underlying aerodynamic computation 
of the flow field is costly and also the number of flow and 
geometry parameters needed to be varied in design studies is 
large . 

The ultimate objective of this investigation is to develop 
and demonstrate methods that would provide the means to reduce 
substantially the overall computational requirements necessary 
for turbomachinery design studies. It is conceived that these 
methods would be coupled with high run-time general turbomachin- 
ery computational flow field solvers and would be used in con- 
junction with them in applications where large numbers of related 
nonlinear turbomachinery solutions are required. 

That such methods can be realized has been successfully 
demonstrated in the previous phases (Refs. 1-3) of this study. 

In the first of those investigations (Ref. 1), several candidate 
methods were studied and the most promising method was identi- 
fied. Extensive development and testing of that method was then 
carried out in the subsequent phase (Ref. 2). This testing was 
performed for a wide variety of both flow and geometry parameters 
for turbomachinery flows past isolated blades and compressor 
cascades at both subcritical and supercritical conditions. 
Emphasis was placed in particular on strongly supercritical flows 
which exhibited large surface shock movements over the parametric 
range studied. Comparisons of the perturbation predictions with 
the corresponding exact nonlinear solutions indicated a remark- 
able accuracy and range of validity of the perturbation method. 

In the most recently completed phase (Ref. 3), the perturbation 
method was extended to treat simultaneous multiple-parameter 
perturbations. Extensive testing of the method has demonstrated 
remarkable accuracy and range of validity of the multiple- 
parameter perturbation procedure in direct correspondence with 
the previous results obtained for single-parameter perturbations. 
Additionally, initial applications of the multiple-parameter 


perturbation method combined with an optimization procedure were 
made (Ref. 3) to several turbomachinery blade design problems. 

The results demonstrated the potential of the perturbation method 
for reducing the computational work in such applications by an 
order of magnitude with no degradation in accuracy. 

The work reported here describes the continued development 
of the combined multiple-parameter perturbation method/ 
optimization procedure. The primary objective of this phase is 
on the development of that combined procedure into an operational 
method for designing optimized blade-to-blade profiles of turbo- 
machinery compressor blades. 
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2. ANALYSIS 


2 . 1 Perturbation Concept 

The obvious method of carrying out a perturbation analysis, 
that is by establishing and solving a series of linear perturba- 
tion equations in the manner of Van Dyke (Ref. 4) , appears to be 
an obvious choice for the current application. The initial phase 
of this study (Ref. 1) established that for sensitive flows, such 
as occur in turbomachinery, the basic linear variation assumption 
fundamental to the technique is sufficiently restrictive that the 
allowable range of parameter variation is so small as to be of 
little practical use. A novel alternative to the linear pertur- 
bation equation approach was then subsequently developed and 
successfully tested (Refs. 1-3) in which a correction method is 
used that employs two or more nonlinear solutions obtained from 
the basic nonlinear flow solver, rather than just one as in the 
linear perturbation equation approach. For this alternative 
method, the basic perturbation solution is determined simply by 
differencing two nonlinear flow solutions removed from one 
another by some nominal change of a particular flow or geometri- 
cal quantity. A unit perturbation solution is then obtained by 
dividing that result by the change in the perturbed quantity. 
Related solutions are determined by multiplying the unit pertur- 
bation by the desired parameter change and adding that result to 
the base flow solution. This simple procedure, however, only 
works directly for continuous flows for which the perturbation 
change does not alter the solution domain. For those perturba- 
tions which change the flow domain, coordinate stretching is 
necessary to ensure proper definition of the unit perturbation 
solution. For discontinuous flows, special coordinate straining 
is necessary to account for movement of discontinuities due to 
the perturbation. 

At this point, the perturbation concept based on these ideas 
has both been implemented and thoroughly tested in a wide range 
of applications (Refs. 1-3, 5-11). These applications have pur- 
posely involved a number of different nonlinear flow field solvers 
to provide the base solutions necessary for the perturbation 
calculation. The most extensive and systematic of these studies 
are reported in References 2, 3, 9, and 11, where results are 
provided for case studies involving a variety of different flow 
and geometry parameter perturbations of nonlinear subsonic and 
transonic flows past isolated blade and compressor cascade geo- 
metries. For those applications, emphasis was placed in partic- 
ular on strongly supercritical transonic flows which exhibit 
large surface shock movements over the parameter range studied. 

By extensive comparisons with the exact nonlinear solutions, 
these studies have established the accuracy, range of validity, 
and versatility of the perturbation method. 
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The underlying reason of the remarkable accuracy of the 
perturbation method developed in this study lies in the use of 
coordinate straining to define the unit perturbation. As shown 
in Figure 1 , where the perturbation between two nonlinear solu- 
tion states is displayed graphically as the shaded area between 
the base and the strained and unstrained calibration solution, 
coordinate straining provides the ability to account accurately 
for the displacement of a multiple number of discontinuities and 
maxima of high-gradient regions due to a parameter change. This 
enables the perturbation method to maintain very high accuracy 
in regions of high gradients where most perturbation methods 
commonly fail, and to maintain that accuracy over large para- 
metric ranges. 

In what follows, we provide a brief account of the theoret- 
ical essentials of the strained-coordinate perturbation concept 
as it configured and implemented in the present design applica- 
tion. This is to predict simultaneous multiple-parameter 
perturbation flow solutions for blade surface properties of 
turbomachinery blades for use in optimized blade design. The 
turbomachinery flow solutions thus considered can contain a total 
number N of discontinuities or high-gradient continuous regions. 
Complete details of the mathematical basis of the method, in 
particular, the application to flow field properties, may be 
found in Reference 3. 

For the prediction of distributions of surface properties 
involving simultaneous multiple-parameter perturbations of aero- 
dynamic flows where flow properties are required along some 
contour, the strained-coordinate, first-order, multiple-parameter 
perturbation approximation can be represented by 

M 

Q ( x ? £ ) = Q q (s) + e -j Q i ( s ) + (1) 

j-1 j 


M 

X = S + EjX^(s) + ... 

j = l 


( 2 ) 


where x is the independent variable measuring distance along the 
surface contour or some convenient projection of that distance, 
s is the strained coordinate, and £ ^ a small parameter represent- 
ing the change in one of M flow or geometrical variables which 
we wish to vary simultaneously. 


In order to determine the first-order corrections Qij(s), 

we require one base and M calibration solutions in which the 
calibration solutions are determined by varying each of the M 
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arbitrary independent parameters by some nominal amount from 

the base flow value while keeping the others fixed at their base- 
line values. 


In this way, 
determined as 


the first-order corrections Q^fs) 


can be 


Q 1 (s) 


Q 


c.(Xj) - 0 o (s) 

J 

E j 


( 3 ) 


where Q c ^ is the calibration solution corresponding to changing 
the j th parameter to a new value q c j / is the strained coordi- 
nate pertaining to the Q C j calibration solution , and 


e j = q C j - q G j represents the change in the q^ parameter from 

its base flow value. If we now desire to keep invariant during 
the perturbation process a total of N points corresponding to 
discontinuities or high-gradient maxima, we can represent the 
first-order solution by 


M 

Q(x,e..) = Q 0 (s) + Y2 e j Q i. (s > 

j=l 3 

where (s) is given above and 
3 


N 



( 4 ) 

( 5 ) 

( 6 ) 

( 7 ) 

( 8 ) 

( 9 ) 
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( 10 ) 


£ . fix . = IX 
3 x £j 


x? 

1 



j 


Here e^fix^ given in Equations (5) and (9) represent the displace- 
ment of the it?z invariant point in the j th calibration solution 
from its base flow location due to the selected change in the 


parameter given by Equation (7) , e^fix^ given in Equations (6) 

and (10) represents the predicted displacement of the i th invari- 
ant point from its base flow location due to the desired change 
£j in the q^ parameter given by Equation (8) , and x^^(s) is a 

unit-order straining function having the property that 


x 


1 


i 



Cl k = i 


0 k 1 i 


(ID 


which assures alignment of the 1th invariant point between the 
base and calibration solutions. 


In References 2 and 3, detailed studies were made of the 
effect of different straining functions on the accuracy of the 
perturbation result. In Reference 3, identification was made of 
a superior class of straining functions for use in general non- 
linear applications. This class turns out to be comprised of 
linear piecewise-continuous straining functions, and particular 
members of this class have proven effective in all case studies 
undertaken to date. It has been found that this type of strain- 
ing function is able to maintain high accuracy of the perturba- 
tion predictive result in the vicinity of the invariant points, 
and furthermore, this class of straining function introduces no 
excessive straining in regions removed from those locations. 
Occurrence of the latter phenomenon has been found to be a common 
failure of certain other classes of straining functions (Refs. 2, 
3) . 


The functional forms of the straining for linear piecewise- 
continuous straining functions can be compactly written. For 
example, the strained coordinate x., in Equation (5) is given by 


X j 


= S + < 


r o 

. x i+i ~ s 

< 

0 

1 

< 

o 

o o 

X « . i - X . 
V* X+1 1 

l 1 ij 


S - X . 


o o 

x; . , - x . 
x+1 i 


x+1 


- X 


i+1 


j-i 


*i + i - s > 


H 


I s - x °) 


( 12 ) 


6 



where H denotes the Heaviside step function. In addition to the 
points corresponding to discontinuities or high-gradient maxima, 
it is usually also necessary in coordinate straining to hold 
invariant both of the end points along the contour. Consequently 
for the application developed here, the array of invariant points 
in the base and calibration solutions are taken as 


o 

x ± 



x 


0 

1 


9 


X 


o 

2 


9 



c 

x i 


j 






(13) 


where the contour length has been normalized to unity and where 
n is the number of invariant points along the blade contour 
exclusive of the end points. 


2 . 2 Combination of Perturbation Method with 
Optimization Procedures for Blade Design 


One of the major objectives of the previous phase of this 
investigation (Ref. 3) was the demonstration of the capability 
of the perturbation method to work effectively in an important 
nonlinear design environment related to turbomachinery. The 
particular application selected was optimized turbomachinery 
blade design. Toward the above objective, the perturbation 
method, configured to treat simultaneous multiple-parameter 
changes, was combined with proven optimization procedures 
(Refs. 12, 13). Next, performance and design constraints char- 
acteristic of certain turbomachinery blade design problems were 
constructed. Finally, applications of the combined procedure to 
several case studies involving blade profile optimization were 
made. The objectives of these initial applications were to 
demonstrate the workability of the perturbation concept in a 
design environment, provide a benchmark of the potential for 
computational savings of the combined perturbation/optimization 
procedure for some typical design problems, and determine the 
accuracy of the perturbation-predicted results for these cases. 

Two different types of optimization problems were considered 
The first set of case studies involved isolated blades and were 
more fundamental in nature, while the second set involved a 
practical turbomachinery compressor blade design. For the first 
set of studies, the particular isolated blade design optimization 
problems selected for study involved the alteration of a baseline 
profile shape by adding to the baseline profile a set of shape 
functions according to the relation 
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(14) 


M 

Z(x) = Z Q (x) + Y2 A i F i( x ) 
i=l 

where Z are the ordinates of the baseline profiles, F. are the 
o 1 

shape functions, and the coefficients are the design variables 

whose values are determined by the optimization process as a 
result of a search through design-variable solution space to 
achieve a desired design improvement. The general class of geo- 
metric shape functions employed, which have been found to be 
successful in previous applications involving optimization of 
supercritical airfoil sections (Ref. 14), consisted of exponen- 
tial decay functions and sine functions. These are of the 

general form (1 - x) «• x^/e^ x and sin (irx r ) n , where the exponents 
p, q, r, and n are selected to provide a desired ordinate maximum 
at a particular chordwise location. The exponential functions 
are generally employed to provide adjustments near the leading 
edge, while the sine functions are used to provide maximum ordin- 
ate changes at particular chordwise stations. Illustrations of 
the chordwise variation of typical members of these classes of 
shape functions are provided in Figure 2 , and it can be seen that 
these functions smoothly concentrate ordinate thickness at 
selected locations. Consequently, they can be used effectively 
to add a series of smoothly blended bumps or scallops at selected 
locations along a baseline blade profile in order to control 
locally the flow characteristics at particular sections on the 
blade . 

A strategy that has proven convenient for performing opti- 
mization studies involving aerodynamic performance parameters 
(Ref. 14) has been to recontour the profile shape so as to tailor 
the surface pressure distribution to conform to a desired distri- 
bution. This type of objective provides local control over the 
basic aerodynamic surface flow property of importance, and 
provides a means of attempting to achieve aft pressure gradients 
sufficiently weak to avoid separation. An important corollary 
advantage of using such an objective is that viscous separation 
can be minimized. This allows use of an inviscid aerodynamic 
flow solver in the optimization process rather than a much more 
computationally-expensive viscous solver, and assures that the 
optimization result thus obtained at the inviscid level is 
representative of the actual flow. 

In such studies, the characteristics that are primarily 
sought after in the optimization process are the minimization of 
both the peaky behavior near the leading edge and the compressive 
gradient on the aft portion of the suction surface that typically 
exists on the baseline profiles considered. This is illustrated 
schematically in Figure 3. For two of the three series of case 
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studies undertaken for isolated blades , the objective function 
was taken as the minimization of the mean squared error between 
the predicted and desired surface pressure distribution, i.e.. 


: p ( V 

aesired K 


where K represents the number of chordwise locations where 

desired and calculated surface pressures are compared* For the 
third series, the objective function was chosen to be the drag 
coefficient squared, a much more sensitive quantity. The opti- 
mization procedure employed was the now-standard CONMIN code 
(Ref. 12). 


The detailed results presented in Reference 3 for the three 
case studies on isolated blades clearly established the ability 
of the perturbation method to work accurately in a highly non- 
linear multiple-parameter design environment. This was found to 
be true for both subcritical as well as strongly supercritical 
flow situations. The supercritical case study employing drag 
coefficient as the objective function demonstrated the advantages 
and accuracy benefits of multiple invariant point clustering in 
high-gradient regions as well as an explicit straining concept 
for determining the perturbation result. Finally, the potential 
for computational savings with the perturbation method in such 
optimization problems was benchmarked at an order of magnitude, 
and the possibility was demonstrated of even obtaining in some 
cases improved results in terms of a more global minima of the 
objective function with employing the perturbation method as 
compared to not using it. 

The final set of case studies involved the optimization of 
realistic compressor blades and was directed toward laying the 
foundations of a practical turbomachinery blade design/ 
optimization procedure coupled with the simultaneous multiple- 
parameter perturbation method. The combined code consisted of 
the TSONIC blade-to-blade flow solver (Ref. 15) with generalized 
circular-arc blade geometry routines BLADE (Ref. 16) to describe 
the blade profiles, and the more generalized COPES-CONMIN opti- 
mization procedure (Ref. 13) . The combined PERTURB/TSONIC/BLADE/ 
COPES-CONMIN procedure, called BLDOPT, was tested on several 
NASA designed case studies to demonstrate the accuracy and capa- 
bility of the combined procedure on problems typical of practical 
turbomachinery blade design. These case studies involved, as 
design variables, selected geometry parameters related to the 
NASA/Lewis circular-arc blade profiles. The optimization 
objective usually chosen was the minimization of the peak suction 
surface velocity diffusion. Although that choice of objective 
is a somewhat sensitive selection since it represents a point 
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quantity in a high-gradient region, the combined procedure was 
able to demonstrate good results, with computational work savings 
comparable to those found in the previous case studies (Ref. 3) . 

In these case studies, however, because the design variables 
were selected as basic geometry parameters (blade curvature, 
maximum blade thickness, etc.) related to the circular-arc blade 
geometry, the optimization search problem itself becomes more 
sensitive. This occurs because these design variables by their 
very nature effect more global changes in the aerodynamic solu- 
tion and therefore tend to interact more strongly with each other 
than would a corresponding optimization problem which employs, 
say, local shape functions as the design variables. For the 
latter case, the design variables generally effect only local 
changes in the aerodynamic solution and therefore tend to inter- 
act much more weakly with one another. Consequently, optimiza- 
tion problems posed with such design variables are usually much 
more stable and less sensitive to small changes in search 
direction . 

However, the ability to employ basic blade geometry param- 
eters as design variables is very attractive as it relates 
directly to the capability of performing the more general pre- 
liminary blade design problem where a wide universe of basic 
blade shapes is considered. This contrasts to the problem 
involving use of local shape functions as design variables which 
relates to a more specific refined-design problem where the basic 
blade profile has already been selected. The ability to treat 
both problems is important, with the former being the more 
general and more difficult to do. 
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3 . RESULTS 


Because the ultimate utility of the perturbation methods 
being developed under this investigation is in optimized turbo- 
machinery design, the primary objective of the current study was 
to complete the development of the combined PERTURB/TSONIC/BLADE/ 
COPES-CONMIN procedure (BLDOPT) for performing optimized turbo- 
machinery blade-to-blade surface profile design, and to finalize 
the procedure into a user’s code so as to make generally available 
such a procedure to facilitate future use and testing by the 
general turbomachinery community. Toward that end, we have com- 
pleted the assembly and preliminary verification testing of the 
four component codes configured into a combined program and con- 
trolled under a user-friendly executive program. 

A number of features have been incorporated into the current 
version of the BLDOPT program reported here, which were not 
available in the preliminary version reported in Reference 3. 

These features considerably enhance both the capability and gen- 
erality of the method. An explicit straining procedure, which 
in essence specifies the points at which the final solution 
results are determined rather than allow these points to be 
determined implicitly from the straining of the base flow points 
as was done standardly in the past, has been implemented in the 
present BLDOPT code. The explicit procedure avoids a double 
interpolation of the perturbation result and has been found to 
yield significantly improved accuracy in high-gradient regions 
at only a very slight increase in computational work. In addi- 
tion to the explicit straining procedure, the updated BLDOPT code 
has incorporated several new options available to the user when 
employing the perturbation method. These options, which are 
controlled by the parameter IOPT defined in Section A. 4 of the 
user's manual, relate to the way the calibration solution matrix 
is defined. One of these options provides the user with a basi- 
cally automatic hands-off procedure for using the perturbation 
method. Under this option, the user is not required to preselect 
and input the design variable values for the calibration solution 
matrix. Rather the matrix is determined completely by the pro- 
gram in the following way. For the first optimization cycle, 
the perturbation method is not used. Full nonlinear aerodynamic 
solutions are determined by the flow field code as required as 
input for the gradient and search optimization calculations. 

After the first search cycle is complete and a new design point 
determined, design variable values for the calibration solution 
matrix are then determined based on the direction that the first 
search cycle has taken. This results in an extremely good defin- 
ition of the calibration solution matrix. The result is that the 
design variable solution space which is subsequently searched on 
the second and successive optimization searches usually requires 
only very reasonable interpolations/extrapolations within the 
design variable parameter range of the defined solution matrix. 
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This option (IOPT = 3) provides the automatic user-invisible 
procedure for defining the calibration solution matrix. An addi- 
tional option (IOPT = 2) which requires user-input for defining 
the calibration solution matrix has also been incorporated into 
the code. Within this option, the calibration matrix definition 
can be accomplished by either individually specifying all the 
design variables (ICALB =1) or alternatively (ICALB =0) by 
employing a constant-value calibration stepsize which increments 
each design variable by this fractional change of its base flow 
value. The automatic IOPT = 3 option requires the additional 
cost of one optimization search cycle using full aerodynamic flow 
field solutions over that of the IOPT = 2 option which in contrast 
requires a user-input of the design variable values for the 
calibration solutions. Nevertheless, the IOPT = 3 option pro- 
vides a highly accurate and basically hands-off means of employ- 
ing the perturbation method and is recommended for use when no 
information is available on search direction from previous 
related calculations. 

In terms of final design variable accuracy and potential 
computational time savings using this IOPT = 3 option, in 
Figures 4 and 5 we present comparisons of a severe test of this 
option for the optimization results for a 5 design variable 
supercritical pressure tailoring case study on an isolated blade 
using blade contour shape functions similar to those reported in 
Reference 3 . Figure 4 provides a comparison of the perturbation- 
predicted final design variables and objective function (#) with 
results obtained with not using the perturbation method but 
employing full nonlinear full potential aerodynamic solutions 
throughout (©) . These are the results after 5 optimization 
cycles. We note the essentially exact correspondence between 
the final design variable values . Corresponding comparison of 
the objective function, in fact, indicate a slightly better 
result obtained by the perturbation method (■) . In Figure 5 , 
the corresponding comparison of computational work in CPU seconds 
and objection function reduction per otimization search cycle is 
provided. Here we see that after the first cycle is complete, 
the perturbation procedure actually requires less time to define 
the calibration matrix solution and complete the second search 
than does the full nonlinear flow field method with the same 
reduction in objective. From that point on, the perturbation 
method requires essentially no time to complete searches 3 to 5, 
and then an additional increment to calculate the final design 
result using the nonlinear flow field solver. Time savings 
achieved with the perturbation method for this case is 58% of 
that required for the full nonlinear result. These and similar 
results obtained with the IOPT = 3 option confirm the utility of 
the automatic user option for defining the calibration solution 
matrix . 
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With regard to the particular optimization problem toward 
which the BLDOPT program has been configured, the following eight 
blade geometry parameters that are commonly used to characterize 
NASA circular-arc blade section profiles (Ref, 16) have been 
incorporated as design variables: 

Blade Geometry Parameter Program Name 

KICR 
KOCR 
T 

ZM 
P 

TMX 
THLE 
THTE 

These geometry parameters are illustrated graphically in Figure 6. 
For more details about the geometry of these classes of blade 
shapes, we refer the reader to Reference 16. In the BLDOPT pro- 
gram, any arbitrary combination up to six of the above param- 
eters may be used in the optimization analysis. 

The sample optimization problem that has been examined to 
verify the combined procedure employs, as a design objective, the 
minimization of the velocity diffusion on the blade suction sur- 
face , i . e . , 


Blade camber angle at inlet 
Blade camber angle at outlet 
Transition location/chord 
Maximum thickness location/chord 
Inlet/outlet turning rate ratio 
Blade maximum thickness/chord 
Leading edge radius/chord 
Trailing edge radius/chord 


0B J = ^max , suction (16) 

^avg,exit 

where q .is the maximum surface velocity on the blade 

max , suction 

suction surface and ^ aV g ex it "*" S avera 9 e exit velocity in the 

freestream. Six of the eight design variables described above are 
employed: blade outlet camber angle, KOCR; transition location 

between fore and aft circular arc sections, T; maximum thickness 
location, ZM; inlet to outlet turning rate ratio, P; maximum 
thickness, TMX; and radius of the leading edge circle, THLE. 
During the optimization process, each of the design variables 
was constrained to remain within certain prescribed bounds in 
order to prevent a physically-unrealistic blade design from 
occurring- Furthermore, several active side constraints were 
additionally imposed both to insure design of a physically- 
realistic blade and also to achieve certain desirable flow 
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characteristics on the blade. The active side constraints 
employed were : 

1. Maintenance of nonzero local blade thickness 

2. Maintenance of low velocity diffusion on the blade 
pressure surface 

3. Trailing edge closure via an effective Kutta condition 

The basis of the first constraint is self-evident and is 
necessary since various combinations of the basic circular-arc 
blade geometry parameters can easily result in the upper and 
lower blade surface arcs crossing and thus lead to negative 
thickness. To understand the basis of the second and third con- 
straints, it is helpful to examine the typical blade surface 
velocity plot as determined by the TSONIC solver. As sketched 
below in the plot on the left, 




Trailing edge 
closure points 


Baseline profile 


During optimization 


the baseline profile has a large peak suction velocity which is 
desired to be reduced. It is also desirable to maintain on the 
pressure surface as uniform a velocity distribution as possible 
and, furthermore, to avoid a large mismatch in the upper and 
lower surface velocities at the trailing edge. During the opti- 
mization process, it is sometimes found that the lower surface 
velocity can develop peaks, such as shown in the plot on the 
right, and that the velocity distributions may cross ahead of 
the trailing edge. The constraints constructed to alleviate 
these occurrences are as follows. In order to keep large dif- 
ferences between the pressure surface velocity maxima and minima 
from occurring, we enforce the condition 

0.0 < q rcax, press < 

^min, press 
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where q is the maximum blade pressure surface velocity 

max jjpiTGs 

over the front half of the blade and q . _ „ is the minimum 

’min , press 

blade pressure surface velocity over the last two-thirds of the 
blade. Restricting the maximum velocity considered to the front 
half of the blade and the minimum velocity to the rear of the 
blade prevents the maximum from moving rearward and the minimum 
from moving forward and thereby defeating the constraint. To 
maintain an effective Kutta condition at the rear of the blade, 
we enforce the condition 

^ ^ITE-2 , suction ^ITE-2 , press ^ 

x < — 


Here ' Site— 2, suction and < JlTE-2,press are the third last surface 
velocities on the flow field grid near the trailing edge on the 
suction and pressure surfaces, respectively. Additional con- 
straints, or constraints different from the above, can easily be 
implemented into the optimization analysis with the BLDOPT code. 
Details for carrying this out are provided in the user's manual. 

We have successfully completed a verification series of 
calculations of the new combined PERTUKB/TSONIC/BLADE/COPES- 
CONMIN procedure in which the accuracy and sensitivity of the 
perturbation method was tested as a function of choice of the 
initial calibration solution matrix. The initial or base values 
of the design variables for the baseline blade profile, and the 
upper and lower bounds of the design variables that were speci- 
fied for this test problem were: 


Design 

Variable 

Number 

Description 

Lower 

Bound 

Upper 

Bound 

Initial 

Value 

1 

Outlet blade camber angle - KOCR 

-15.0° 

0.0° 

o 

O 

• 

0 

H 

1 

2 

Transition location/chord - T 

0.20 

0.60 

0.25 

4 

Maximum thickness location/ 
chord - ZM 

0.20 

0.55 

0.45 

5 

Inlet/outlet turning/chord - P 

0.50 

4.00 

1.50 

6 

Maximum thickness/chord - TMX 

0.03 

0.10 

0.05 

7 

Leading edge radius/chord - THLE 

0.003 

0.012 

0.005 
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The results of these calculations are summarized in Table 1. 
There we have provided comparisons of the final design variables 
and objective function predicted when employing full nonlinear 
TSONIC solutions throughout the optimization process with corre- 
sponding results when using the perturbation method. For the 
perturbation results, different choices of the calibration solu- 
tion matrix were made and are noted in the table. All the results 
represent converged solutions, with each calculation employing 
10 optimization search cycles or less if no change in objective 
function should occur in three successive itermations. 

The result indicated for the case when the perturbation 
method is not employed and TSONIC solutions are used throughout 
( IOPT = 1) provide the benchmark solution for comparison with the 
perturbation results. We note that similar full nonlinear 
benchmark results reported in Reference 3 for a related problem 
demonstrated the sensitivity of this class of optimization prob- 
lems to the choice of the maximum velocity diffusion as an 
objective function. Identical benchmark results were obtained on 
the Ames Research Center CDC 7600 and the Lewis Research Center 
IBM 3033. The differences between those two results, which were 
of the same order as the differences between the various pertur- 
bation results, were due solely to the number of significant 
figures maintained in the respective calculations, i.e., eight 
for the IBM 3033 and 14 for the CDC 7600. This illustrates a 
common characteristic of many nonlinear multiple-parameter opti- 
mization problems, i.e., the existence of many local minimums. 
Furthermore, it also emphasizes the sensitivity of certain classes 
of optimization problems to both choice of objective function 
and design variables. 

We observe from the perturbation results indicated in Table 1 
that, with the exception of only one design variable (T) in 
certain instances of a deliberately made poor choice of calibra- 
tion solution matrix, the final design variables predicted by 
the perturbation method for both IOPT=2 or 3 options trend in 
the same direction from the baseline value as the full nonlinear 
(IOPT=l) result and consistently improve the objective function. 
Under the IOPT=2 option, case 1 displays the results for a choice 
of calibration solution matrix which is very close to the final 
design result reached using the full nonlinear IOPT=l option. 

The final perturbation-predicted design result for case 1 is 
slightly removed from the nonlinear result, but the objective 
function is quite close to the nonlinear result, indicating the 
presence of nearby alternative local optimization minimums. For 
case 2 , the calibration matrix was determined by using the option 
ICALB=0 and selecting a constant-value calibration stepsize for 
each design variable of PSTEP=0.10. This implies that the value 
for each design variable for the calibration solution matrix is 
found by incrementing by 10 percent its base value. This manner 
of selecting the calibration matrix design variables is 
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relatively crude since, on average, half of the perturbation flow 
solutions for the optimization searches will involve design 
variable interpolation and half will require extrapolation. 
Furthermore, a certain fixed percentage increment on some design 
variables may be far too much in range in that large solution 
interpolations may be required, while that same percentage incre- 
ment may be far too small for other design variables which 
would then require large extrapolations. Nevertheless, in the 
face of no a priori information regarding the direction and 
range that the optimization search will proceed over, the 
use of the ICALB-O option provides a convenient and inexpensive 
way of obtaining a preliminary optimization result. Additionally, 
as the results for case 2 indicate, the ICALB=0 results are 
often quite good. Analogous results using ICALB=0 and 
PSTEP=— 0 . 10 , which implies a decrement of 10 percent from the 
base design variable values for the calibration design 
variables, are given in case 3. As can be seen, these results 
are inferior to those of case 2, and illustrate the relative 
importance of chosing calibration matrix design variable values 
that result in modest interpolations/extrapolations , since for 
case 3 larger interpolations/extrapolations are required. The 
results of both cases 4 and 5 further illustrate this point. 

For case 4, the calibration design variables were chosen so as to 
result exclusively in modest perturbation solution extrapolations 
during the optimization searches. In case 5, similar choices 
were made so as to result exclusively in modest solution 
interpolations. Both results in terms of final design variable 
values and objective function are quite good. The final 
IOPT=2 result shown in case 6 illustrates the effect of an 
intentional bad selection for the calibration solution design 
variables in that large perturbation solution extrapolations/ 
interpolations are required during optimization. Although the 
final design result for the objective function is the least 
satisfactory of the six I0PT=2 cases, the majority of the design 
variables have trended in the appropriate direction. Conse- 
quently, even in for this situation involving deliberate poor 
choices of the calibration matrix, the perturbation method 
does not break down and yield spurious results, but provides 
instead a reasonable preliminary result. The final perturba- 
tion result shown in Table 1 is for the IOPT=3 option. For a 
slightly higher computational cost, that result provides a 
very good comparison between the final IOPT 1 nonlinear result. 

The computational time needed to obtain the perturbation 
results in cases 1 to 6 under the IOPT=2 option were 76-78 secs, 
of CDC 7600 CPU time per case. The corresponding time for 
the IOPT=3 option was 97 secs. The benchmark IOPT=l full 
nonlinear CDC 7600 result shown in Table 1 required 644 secs. 

Thus, the perturbation method provides a savings of (644 - 78)/ 
644 = 88% of the computational time for the I0PT=2 option and 
(644 - 97)/644 = 85% for the IOPT=3 option for this example. 
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The significant conclusions to be drawn from this study are 
that the perturbation method can work accurately in multiple- 
parameter design environments even for very sensitive optimiza- 
tion problems and provide both meaningful final design results 
and large computational savings over not using the method. The 
choice of objective function such as was made for this case 
study, namely a point quantity located in a high-gradient region, 
requires careful user attention to the initial calibration matrix 
choice if I0PT=2 is employed in order to avoid large extrapola- 
tions, whereas if the I0PT=3 option is employed and the program 
allowed to automatically determine the calibration matrix, no 
exceptional difficulties are observed. 

Additional optimization computations were made to try to 
determine whether an alternative choice of objective function 
would remove the sensitivity observed in the current problem. 

For example, computations were made employing objective functions 
defined as;(l) the sum of the maximum surface velocity on the 
blade suction surface plus the surface velocities on either side 
of that point, and (2) the sum of the first five surface 
velocities near the leading edge on the blade suction surface. 

The design variables and side constraints were kept the same 
as those of the original problem. The hope was that by spreading 
the objective function over a wider region on the blade surface, 
that the extreme sensitivity of the problem would be reduced. 

The results of these calculations, however, were disappointing 
in that they provided uniformily inferior results to the original 
choice of the objective function as a point quantity [Eq. (16)]. 

Our conclusion with regard to improving the posing of this parti- 
cular optimization problem is that two issues must be addressed 
that were beyond the scope of this investigation. The first 
concerns the definition of the flow solution in the vicinity 
of the peak suction pressure. A detailed examination should be 
made of the accuracy and reliability of the flow solver (TSONIC) 
in that region. The second issue concerns the reliability of 
the basic CONMIN optimizer itself. In many of the optimization 
calculations undertaken in this study, a notable characteristic 
of the CONMIN optimizer was its penchant to move to a shallow 
objective function minimum in the near vicinity of the baseline 
configuration and to remain there. Alteration of stepsizes, 
design variable scalings, and certain tolerances did not change 
this characteristic. This behavior of CONMIN has been noted by 
others (Ref. 18) who have concluded that the conjugate gradient 
algorithm has serious convergence deficiencies when applied to 
the class of aerodynamic optimization problems being considered 
in this study. An attractive alternative method based on a 
quasi-Newton algorithm has demonstrated significantly superior 
performance characteristics over COPES/CONMIN for these same 
classes of problems (Ref. 18) . The CONMIN procedure was originally 
developed for structural design problems with large numbers of 
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variables and constraints, rather than for the relatively new 
aerodynamic optimization problem which involves a relatively 
limited number of design variables and constraints. Conse- 
quently, it is not surprising that superior procedures are now 
being discovered and developed. In future work, an investigation 
should be made of the desirability of replacing the COPES/ 

CONMIN optimization procedure embodied in the present BLDOPT 
program developed here. 
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4. CONCLUSIONS AND RECOMMENDATIONS 


An investigation was conducted to complete the preliminary 
development of a combined perturbation/optimization procedure 
and associated computational code for designing optimized blade- 
to-blade profiles of turbomachinery blades. The overall purpose 
of the procedures developed in this study is to provide demon- 
stration of the utility of a rapid nonlinear perturbation method 
for minimizing the computational requirements associated with 
optimized design studies of turbomachinery flows. The nonlinear 
perturbation method employed has been successfully developed in 
previous phases of this study and employs coordinate straining 
concepts together with unit perturbations determined from a 
special calibration matrix of nonlinear base solutions to pre- 
dict families of related nonlinear solutions without further need 
of the computational nonlinear flow field solver. The solutions 
predicted can be either continuous or discontinuous. 

The results reported here relate to the combination of the 
perturbation method, configured to predict simultaneous multiple- 
parameter changes, with the NASA/Lewis Research Center TSONIC 
code for predicting blade-to-blade flow solutions, the NASA/Lewis 
Research Center BLADE code for generating NASA blade-to-blade 
double circular arc blade shapes, and the NASA COPES-CONMIN code 
for performing optimization searches in multiple-parameter design 
space. The combined PERTURB/TSONIC/BLADE/COPES-CONMIN code, 
called BLDOPT, has been configured to perform optimization studies 
employing one, all, or any combination of the following eight 
blade geometry parameters used to characterize NASA double cir- 
cular arc blade profiles: inlet blade camber angle, outlet blade 

camber angle, transition location between the inlet and outlet 
circular arc sections, maximum thickness location, inlet to out- 
let turning rate ratio, blade maximum thickness, leading edge 
radius, and trailing edge radius. Redefinition of the objective 
function and active side constraints for other case studies have 
been made simple and straightforward by confining their definition 
to one subroutine. The sample objective function and constraint 
definitions included in the version of the code reported here 
employ the velocity diffusion on the blade suction surface as 
objective function and three active side constraints related to 
maintenance of nonzero local blade thickness , low velocity dif- 
fusion on the blade pressure surface, and an effective trailing 
edge Kutta condition. The combined BLDOPT code has been made user- 
friendly and has been documented in a user's manual included as 
part of this report. An option has been included to allow the 
user to bypass use of the perturbation method altogether and 
employ TSONIC solutions throughout the optimization process in 
order to establish selected benchmark calculations. Options are 
also available to allow the user to employ the perturbation 
method in an automatic hands-off fashion. This is accomplished 
at the modest computational expense of one additional nonlinear 
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TSONIC-solution only optimization cycle over the alternative 
option of employing the perturbation method with the user supply- 
ing information regarding the initial calibration solution matrix. 

Results of a series of calculations of the combined BLDOPT 
code have verified the code, demonstrated the accuracy of the 
perturbation-predicted results, and established benchmark guide- 
lines of the potential for computational savings of the method 
under the various options included in the code. In general, the 
perturbation method is capable of providing an order of magnitude 
reduction in computational work in these applications. 

Based on these results, we conclude that perturbation methods 
formulated on these ideas are both accurate and extremely workable 
in design environments . They clearly can provide the means for 
substantially reducing the computational work required in such 
applications . We suggest the further testing of the perturbation 
method with the combined BLDOPT code in order to test the limits 
of the method in such important preliminary design applications. 
Forthermore, we recommend the combination of these same procedures 
with supercritical flow solvers so as to accomplish both subcrit- 
ical and supercritical blade optimization design. 
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APPENDIX A 


USER’S MANUAL FOR COMPUTER PROGRAM BLDOPT 


A . 1 INTRODUCTION 


The purpose of this appendix is to describe the operation 
of the computer code that was developed in conjunction with the 
theoretical work presented in this report, and to provide suffi- 
cient detail to permit convenient use and change of the program. 

The program determines an optimized blade shape, with respect to 
certain blade surface geometry parameters (Ref. 16) and based on 
TSONIC blade-to-blade flow solutions (Ref. 15) , by employing a 
modified version of the COPES-CONMIN optimization search program 
(Ref. 13) . The typically large computational demands of such 
optimization procedures caused by the need for numerous blade-to- 
blade flow solutions during the optimum search process is sub- 
stantially reduced by incorporation of a novel, recently-developed, 
rapid, nonlinear, strained-coordinate perturbation method (Refs. 2 
and 3) as discussed in the main text. 


A description of the general operating procedure of the 
combined program is given, together with complete description of 
both input and output. The program is written in FORTRAN IV and 
has been developed on the Ames Research Center CDC 7600 computer 
facility. Approximate program run times for an optimization 
problem involving six design variables and 10 optimization search 
cycles when not employing or employing the perturbation method 
under the various program options are: 


CPU Run Time 


Program Option, IOPT 


800 secs. 
100 secs. 
180 secs. 


1 (TSONIC solutions only) 

2 (Perturbation method) 

3 (1 TSONIC solutions only cycle 
followed by perturbation 
method) 


The storage requirements are 14lK g for small core memory and 77K g 
for large core memory. 
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A. 2 PROGRAM DESCRIPTION 


The combined blade optimization program BLDOPT consists of 
the following main elements: 

Code Element Function 

13 

COPES-CONMIN Optimization procedure 

TSONIC^ 5 Turbomachinery blade-to-blade 

flow solver 

BLADE^ 6 Blade geometry description 

3 

PERTRB Nonlinear perturbation method 

The program is configured to perform the optimization of a 
blade element as described geometrically in Reference 16. The 
optimization is based upon the following design variables which 
are geometric parameters describing the blade element: 


Design 

Variable 

Number 


Geometric Parameter 


Program 

Name 


1 Blade camber angle at inlet KICR 

2 Blade camber angle at outlet KOCR 

3 Transition location/chord T 

4 Maximum thickness location/chord ZM 

5 Inlet/outlet turning rate ratio P 

6 Blade maximum thickness/chord TMX 

7 Leading edge radius/chord THLE 

8 Trailing edge radius/chord THTE 


At the user's option, the optimization problem can be specified 
to employ any arbitrary combination up to six of the above 
design variables. Additionally, the user has the ability to con- 
struct readily particular objective functions and side constraints 
to be used in new optimization problems. Ease of definition and 
implementation of optimization problems with regard to objective 
function, side constraints, and design variable bounding were the 
primary reasons for selection of the COPES-CONMIN optimization 
driver. All information regarding definition of objective func- 
tion and side constraints is contained in the subroutine OBJCON. 

In the program version listed here, the objective function is 
defined as the maximum velocity diffusion on the blade suction 
surface, and three side constraints are imposed to maintain (1) 
nonzero blade thickness, (2) low velocity diffusion on the blade 
pressure surface, and (3) trailing edge closure. Details of how 
these constraints are defined are provided in the main text, and 
their implementation in the code is straightforward and self- 
explanatory when viewing the program listing. 
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A. 4 DICTIONARY OF INPUT VARIABLES 

This section provides a dictionary of all input variables. 
The variables are divided into four sections corresponding to 
the four major parts of the program (see A. 2). 


A. 4.1 Dictionary of Input Variables 
for Subroutine COPES (Ref. 13) 

All COPES variables are defined in Section A. 5. 3. 


A. 4. 2 Dictionary of Input Variables 
for Subroutine ANALIZ 

ALP Blade-element layout-cone half angle, degrees; see 

Reference 16. 

DVCALB(I) Array of dimension NDV, specifying the calibration 
parameters used in the perturbation method 
optimization 

ICALB Integer parameter which controls input of the array 

DVCALB : 

ICALB = 0 , do not input DVCALB 

ICALB = 1, input DVCALB 

IDV(I) Array of integers, of dimension NDV, which is used 

to select a subset of variable blade parameters as 
design variables in the optimization. If IDV(I) = K, 
the 1th design variable is W(K). 

IOPT Integer parameter which controls which method of 

analysis is to be used in optimization: 

IOPT = 1, nonlinear aerodynamic solution 

IOPT = 2 , perturbation method 

IOPT = 3, nonlinear optimization for one iter- 
ation to predict calibration stepsizes, 
followed by perturbation method. 

ITMAX3 Maximum number of optimization iterations allowed for 

the perturbation solution when IOPT = 3. Not used if 
IOPT = 1 or 2. 

KICR Centerline blade inlet angle on layout cone, degrees; 

see Reference 16. 

KOCR Centerline blade outlet angle on layout cone, degrees ; 

see Reference 16. 
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NB Number of blades 

NCN Number of constraint sets in the optimization prob- 

lem; this value must be the same as that for NCONS 
in COPES input . NCN < 5. 

NDV Number of independent design variables used in the 

optimization problem. This value must be the same 
as NDV in COPES input. NDV £ 8. 

P Ratio of inlet-segment turning ratio to outlet-segment 

turning rate for a blade element; see Reference 16. 

PSTEP Constant-value calibration stepsize, which may be used 

in the perturbation method optimization. If ICALB = 0, 
the value of the Kth calibration parameter 
D VC ALB (K) = (1 .+PSTEP) *QO(K) , where Q0(K) is the value 
of the Kth base solution parameter. 

R Inlet radius, length unit; see Reference 16. 

SOLID Blade tip solidity (chord/circumferential spacing) ; 

see Reference 16. 

T Blade centerline transition point location, made non- 

dimensional by the chord; see Reference 16. 

THLE Blade-element leading-edge circle radius, made non- 

dimensional by the chord; see Reference 16. 

THTE Blade-element trailing-edge circle radius, made non- 

dimensional by the chord; see Reference 16. 

TMX Blade-element maximum thickness, made non-dimensional 

by the chord; see Reference 16. 

VNAME(I) Array of dimension NDV, containing 10-character 

strings which identify, for printed output, the inde- 
pendent design variables used in optimization. 

W (I ) Array of dimension 8 which is equivalent to the list 

of input variable blade parameters : 

W(l) = KICR W ( 5) = P 

W ( 2 ) = KOCR W ( 6) = TMX 

W(3) = T W ( 7 ) = THLE 

W(4) = ZM W ( 8 ) = THTE 

ZM Blade centerline maximum thickness location, made 

non-dimensional by the chord; see Reference 16. 
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A. 4. 3 Dictionary of Input Variables 
for Subroutine TSONIC 


This section presents definitions of the input variables 
required for the TSONIC flow analysis. For a complete descrip- 
tion of the variables and their usage see Reference 15. 


AR 

BESP 

BETAI 

BETAO 

DENTOL 


FSMI 

FSMO 

GAM 

LAMBDA 

LOPT 

LRVB 

MBI 


Gas constant, J/(kg)(K) 

Array of stream-channel normal thicknesses corres- 
ponding to the MR and RMSP arrays , meters , see 
Figure 12, Reference 15. 

Inlet flow angle along BG with respect to 

m-direction, deg, see Figure 11, Reference 15. 

Outlet flow angle along CF with respect to 

m-direction, deg, see Figure 11, Reference 15. 

Tolerance on density change per iteration for reduced 
weight flow (DENTOL may be left blank, and the value 
0.01 will be used. If trouble is experienced in 
obtaining convergence (i.e., the maximum relative 
change in density (Item 14 of output. Ref. 15) does 
not get small enough, then a larger value of DENTOL 
may be used, or a smaller value of REDFAC may be used 
(The value of 0.001 for DENTOL would be a tight toler 
ance, 0.01 is a medium tolerance, and 0.1 would be a 
loose tolerance.) 

m-coordinate corresponding to BETAI (it is assumed 
that FSMI £0); if not specified, FSMI = 0. 

m-coordinate corresponding to BETAO (it is assumed 
that FSMO £ chord) ; if not specified, FSMO = chord. 

Specific heat ratio 

2 

Upstream whirl, rV Q , meters /sec. 

Integer variable which controls input of PLOSS array: 

LOPT =0, PLOSS array is not given as input 
LOPT = 1, read in PLOSS array 

Integer variable which controls input: 

LRVB =0, BETAI and BETAO are input 
LRVB = 1, LAMBDA and RVTHO are input 

Number of vertical mesh lines from AH to BG inclusive 
see Figure 13, Reference 15. 
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MBO 

MM 

MOPT 


MR 


NBBI 

NBL 

MRSP 

OMEGA 

ORF 

PLOSS 


Number of vertical mesh lines from AH to CF inclusive, 
see Figure 13, Reference 15. 

Total number of vertical mesh lines in m-direction 
from AH to DE, maximum of 100, see Figure 13, 

Reference 15. 

Integer control variable: 

MOPT = 0 , use only when REDFAC = 1 , no correction 
is made to the BESP array for the 
reduced mass flow solution. 

MOPT = 1, read in the WOWCR array to use for cal- 
culating the reduced mass flow BESP 
array. 

MOPT = 2 , the reduced BESP array will be calcu- 
lated by the program using average 
blade angles and using SSM1 and SSM2 
values to determine whether flow is 
subsonic or supersonic . 

Array of m-coordinates of spline points for stream- 
channel radii and stream-channel thickness, meters, 
see Figure 12, Reference 15 (MR is measured from the 
leading edge of the blade. These coordinates should 
cover the entire distance from AH to DE, and may 
extend beyond these bounds . The total number of 
points is NRSP.) . 

Number of mesh spaces in 0 -direction between AB and 
GH, maximum of 50, see Figure 13, Reference 15. 

Number of blades. 

Number of spline points for stream-channel radius 
(RMSP) and thickness (BESP) coordinates, maximum of 
50, see Figure 12, Reference 15. 

Rotational speed, w, rad/sec (note that to is negative 
if rotation is in the opposite direction of that 
shown in Fig. 12, Ref. 15). 

Value of overrelaxation factor to be used in the 
solution of the inner iteration simultaneous equa- 
tions (if ORF = 0, the program calculates an estimated 
value for the overrelaxation factor. See page 25, 

Ref. 15 for discussion.). 

P ' 

array of fractional total pressure loss, 1 - , 

idssl 

corresponding to the MR, RMSP, and BESP arrays. 
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REDFAC 


RHOIP 


Factor by which weight flow (WTFL) must be reduced 
in order to assure subsonic flow throughout passage 
(REDFAC is usually between 0.5 and 0.9). 

3 

Inlet stagnation density , kg/meter 


RMSP 


RVTHO 


Array of r-coordinates of spline points for the 
stream-channel radii, corresponding to the MR array, 
meters, see Figure 12, Reference 15. 

2 

Downstream whirl, (rV^) o , meters /sec. 


SPLNO(l), Number of blade spline points given for each surface 

SPLNO(2) as input, maximum of 50 [these include the first and 

last points (dummies) that are tangent to the leading- 
and trailing-edge radii (Fig. 11, Ref. 15)]. 


SSM1 


m-coordinate where supersonic solution is to start. 


SSM2 m-coordinate where supersonic solution is to end. 

(Note: If SSMl and SSM2 are both left blank, there 

will be no supersonic region) . 


TIP 

WOWCR 


WTFL 


Inlet stagnation temperature, K 

Array of W /V? cr values at mid-channel, corresponding 

to the MR, RMSP, and BESP arrays. Used to calculate 
the reduced mass flow BESP array. 

Mass flow per blade for stream channel, kg/sec. 


The remaining variables, starting with BLDAT, are used to indicate 
what output is desired. A value of 0 for any of these variables 
will cause the output associated with that variable to be omitted. 
A value of 1 will cause the corresponding output to be printed 
for the final iteration only; 2, for the first and final itera- 
tions; and 3, for all iterations. Case should be used not to 
call for more output than is really useful. The following list 
gives the output associated with each of these variables: 


BLDAT All geometrical information which does not change 

from iteration to iteration (i.e., coordinates and 
first and second derivatives of all blade surface 
spline points; blade coordinates, blade slopes, and 
blade curvatures where vertical mesh lines meet each 
blade surface; radii and stream-channel thickness 
corresponding to each vertical mesh line; m-coordinate, 
stream-channel radius and thickness , and blade surface 
angles and slopes where horizontal mesh lines inter- 
sect each blade; and ITV and IV arrays, internal 
variables describing the location of the blade sur- 
faces with respect to the finite difference grid) . 
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AANDK 


Coefficient array, constant vector, and indexes of 
all adjacent points for each point in finite- 
difference mesh (this information is needed for de- 
bugging the program only) . 

ERSOR Maximum change in stream function at any point for 

each iteration of SOR equation [Eq. (A8) , Ref. 17] . 

STRFN Value of stream function at each unknown mesh point 

in region. 

SLCRD Streamline 0-cordinates at each vertical mesh line, 

and streamline plot. 

INTVL Velocity and flow angle at each interior mesh point 

for both reduced and actual weight flow. 

SURVL m-coordinate , surface velocity, flow angle, distance 

along surface, and w A? cr based on meridional velocity 

components where each vertical mesh line meets each 
blade surface; m-coordinate, surface velocity, flow 
angle, distance along surface, and W/W cr based on 

tangential velocity components where each horizontal 
mesh line meets each blade surface, plot of blade 
surface velocities against meridional streamline 
distance , meters . 


A. 4. 4 Dictionary of Input Variables 
for Subroutine PERTRB 

This section presents definitions of the input variables 
required for the perturbation method. For a complete description 
of the variables and their usage see Reference 3. 

A Scaling parameter in straining procedure. A = -x(l), 

where x(l) is x-location of first data point on lower 
surface (see PROGRAM DESCRIPTION, Ref. 3) . 

B Scaling parameter in straining procedure. B = -x(N), 

where x (N) is location of last data point on upper 
surface (see PROGRAM DESCRIPTION, Ref. 3). 

LPLOT Specifies whether or not an additional plot by a 

peripheral device is to be made. Software must be 
supplied by user in subroutine DRVPLT. 

LPLOT = 0 ... no peripheral plot 
LPLOT =1 ... peripheral plot 
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LSELCT ( I ) 


LUNIT 

NSELCT 

PARNAM(K) 

TITLE 

VNAM 


Array of length 6 of which NSELCT elements are read 
in; specifies nature of points to be held invariant 
according to the code: 

1 ... minimum point held invariant 

2 ... maximum point held invariant 

3 ... 1st critical point held invariant 

4 ... 2nd critical point held invariant 

5 ... 3rd critical point held invariant 

6 ... 4th critical point held invariant 

Note that critical point ordering is determined from 
order of occurrence starting at the lower surface at 
the point furthest from the leading edge and proceed- 
ing clockwise around the surface (see PROGRAM 
DESCRIPTION, Ref. 3) . 

Note that the code numbers can be assigned in any 
order, e.g. , 

LSELCT ( 1) = 1 LSELCT (1) = 4 

LSELCT (2) = 3 and LSELCT (2) = 1 

LSELCT (3) = 4 LSELCT (3) = 3 

Are equivalent, both corresponding to NSELCT = 3, 
with the minimum, and first and second critical 
points held invariant. 

Controls whether or not unit coordinate strainings 
and unit perturbation (s) are printed. 

LUNIT = 0 ... no output 
LUNIT = 1 . . . output 

Number of points (in addition to end points) to be 
held invariant in straining; note: 1 £ NSELCT £ 6. 

Array of 8 -character strings which identify the 
parameters varied. NPARAM element of the array are 
read in . 

Character string of length 80; identifies job. First 
nine characters are used to identify peripheral plot. 

Character string of length 2 which symbolizes de- 
pendent variables, e.g., "CP" for pressure 
coefficient. 
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A. 5 PREPARATION OF INPUT DATA 

This section describes the preparation of the card input 
data for the program. A description of each input item is pre- 
sented, followed by a description of the card format. 


A. 5.1 Description of Input 

The data are divided into four sections corresponding to the 

four major parts of the program. 

A. 5. 1.1 COPES Input 

Item 1.1 To end of COPES input. Input for the COPES optimiza- 
tion control subroutines is described in Section A. 5. 3. 
The user should take particular note of variable 
ITMAX in Block C and the array X in Block R. If 
IOPT = 3, ITMAX should be set equal to 1, and all 
values of the array X should be set to zero. 

A. 5. 1.2 ANALIZ Input 

Item 2.1 One card, containing text which identifies the ANALIZ 
input block; may contain up to 80 characters. 

Item 2.2 One card, containing the control parameters IOPT, NDV, 
NCN , ITMAX3 . 

Item 2.3 One card, containing the constant blade parameters NB, 
R, ALP, and SOLID. 

Item 2.4 One card, containing the variable blade parameters 
KICR, KOCR, T, ZM, P, TMX , THLE , THTE . The initial 
values of the design variables used in optimization 
are contained in this set. 

Item 2.5 One card, containing the character strings 
VNAME(I) ,1=1, NDV. 

Item 2.6 One card, containing the integer array IDV(I) , 1=1, 
NDV. 

Item 2.7 One card, containing parameters ICALB and PSTEP. 

Item 2.9 One card, optional, containing perturbation parameters. 

DVCALB(I), 1=1, NDV. Omit this item if ICALB = 0. 

A. 5. 1.3 TSONIC Input 

Item 3.1 One card, containing text identifying the TSONIC 
input block; may contain up to 80 characters. 


36 



Item 3.2 
Item 3.3 


Item 3.4 

Item 3.5 

Item 3.6 
Item 3.7 
Item 3.8 

Item 3.9 

Item 3.10 

Item 3.11 

Item 3.12 

Item 3.13 

Item 3.14 


i 

One card, containing values for GAM, AR, TIP, RHOIP, 
WTFL, OMEGA, and ORF. 

One card, containing values for geometric parameters 
BETAI , BETAO , FSMI , and FSMO. 

Optional: LAMBDA and RVTHO may be specified 

instead of BETAI and BETAO. In this 
case, specify LRVB = 1. FSMI and 
FSMO are not needed. 

One card , containing values for REDFAC , DENTOL , SSM1 , 
SSM2 . 

One card, containing integral MBI, MBO, MM, NBBI , 

NBL, NRSP , MOPT, LOPT, LRVB. 

One card, containing SPLNO(l). 

One card, containing SPLNO(2). 

Set of cards, eight values per card, containing array 
MR ( I ) , I = 1, NRSP. 

Set of cards, eight values per card, containing array 
RMSP (I) ,1=1, NRSP. 

Set of cards, eight values per card, containing array 
BESP(I) ,1=1, NRSP. 

Set of cards, optional, eight values per card, contain- 
ing array WOWCR(I) , 1=1, NRSP. This item is required 
only when MOPT = 1 . 

Set of cards, optional, eight values per card, contain- 
array PLOSS(I), 1=1, MRSP. Omit this item if 
LOPT = 0. 

One card, containing the integer print control vari- 
ables BLDAT, AANDK , ERSOR, STRFN , SLCRD , INTVL , and 
survl . 

One card, containing the character string $END in 
columns 1-4. This identifies the end of TSONIC input. 


A. 5. 1.4 PERTRB Input 

Item 4.1 One card of text, identifying the PERTRB input block. 
This item may contain up to 80 characters. 

Item 4.2 One card, containing TITLE for job identification. 

This item may contain up to 80 characters. The first 
9 characters are used to identify peripheral plot, if 
LPLOT = 1. 
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Item 4.3 One card, containing the integer control parameters 
NSELCT, LUNIT, and LPLOT . 

Item 4.4 One card, containing NSELCT values of the integer 
array LSELCT. 

Item 4.5 One card, containing the character string VNAM. 

Item 4.6 One card, containing the character strings PARNAM(I) , 

1=1, NDV. 

Item 4.7 One card, containing the scaling parameters A and B. 
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A. 5. 2 Format of Input Data 


A. 5. 2. Format of Input Data 

Item 1.1 - end of COPES input see Section A. 5. 3 



Item no. 2.4 1 card (8F10.Q) 


Variable 

KICR 

K0CR 

T 

ZM 

P 

TMX 

THLE 

THTE 

Card column 

10 

20 

30 

40 

50 

60 

70 

80 

Format type 

F 

F 

F 

F 

F 

F 

F 

F 

Item no. 2.5 

1 card (8A10) 







Variable 

VNAME(l) 

VNAME (2) 

— 

— 

VNAME (NDV 




Card column 

10 

20 

30 

40 

50 

60 

70 

80 

Format type 

A 

A 

A 

A 

A 

A 

A 

A 


Item no. 2.6 
Variable 
Card column 
Format type 


1 card (1015) 


IDV(l) 

I DV ( 2 ) 

— 

— 

IDV(NDV) 




5 

1C 

15 

20 

25 

30 

35 

40 

I 

I 

I 

I 

I 

I 

I 

I 


CO 

VO 






a* 

o 


Item no. 2.7 I card (IIP, 3F10.6) 


Variable 

ICALB 


PSTEP 

Card column 


10 

20 

Format type 





Item no. 2.8 
Variable 
Card column 
Format type 


1 card (8F10) Read only when ICALB not zero. 
DVCALB (1) JDVCALB (2 )| I bVCALB (NDl 



Item no . 3.1 
Variable 
Card column 
Format type 


Item no. 3.2 
Variable 
Card column 
Format type 



Item no . 3.3 
Variable 
Card column 
Format type 


1 card (8F10.5) 



Item no . 3.4 

Variable 
Card column 
Format type 
















































































































































Item no . 3.11 

(If M0PT 

=1) J cards, J as above, 8 vc 

Variable 


W0WCR (2 ) 

— 

■■■■■■■■Mil 

Card column 

10 

20 

30 

40 

Format type 

F 

F 

F 

F 

Item no. 3 . 12 

(If LAPTOP) J cards. J as 

above , 8 v< 

Variable 

Rv^nni 

SRvESEH 

— 

— 

Card column 

10 

20 

30 

40 

Format type 

E 

F 

F _ 

F 

Item no. 3. 13 

1 card (1615) 



Variable 

BLDAT 


ERSJJR 

STRFN 

Card column 

5 

10 

15 

20 

Format type 

I 

I 

I 

I 

Item no. 3 . 14 

1 card (8A10) 



Variable 

$END 1 




Card column 

10 




Format type 

A 




Item no. 4.1 

1 card (8A10) 



Variable 

TEXT 

Card column 


Format type 

A 

Item no. 4.2 

1 card (8A10) 



Variable 

TITLE 

Card column 


Format type 

A 


A 


ilues per card (8F10.5) 



SLCRD 

INTVL 

SURVL 

25 

30 

35 

I 

I 

I 



80 



















































Item no. 4.3 
Variable 
Card column 
Format type 


1 card (1615) 
NSELCT I LUNIT 



Item no . 4.4 
Variable 
Card column 
Format type 


1 card (1615) 


LSELCT (1 

u 

LSELCT 

[£t 

51 

10 


Item no. 4.5 
Variable 
Card column 
Format type 


1 card ( 2 Al ) 



Item no. 4.6 
Variable 
Card column 
Format type 



Item no. 4.7 1 card (8F10.6) 


Variable 

A 


B 

Card column 


10 

20 

Format type 

F 


F 


4 * 

U> 



A 



































A. 5. 3 Format of COPES Input Data 


DATA BLOCK A 


DESCRIPTION: Title card. 


FORMAT AND EXAMPLE 


12345678 FORMAT 


TITLE 

20A4 

CANTILEVERED BEAM DESIGN 



FIELD 


CONTENTS 


1-8 


Any 80 character title may be given on this card 






DATA BLOCK B 


DESCRIPTION: Program Control Parameters. 


FORMAT AND EXAMPLE 


1 

2 

3 

4 

5 

6 

7 

FORMAT 

NCALC 

NDV 

NSV 

N2VAR 

NXAPRX 

IPNPUT 

IPDBG 


7110 

2 

2 

3 

5 

2 

0 

0 




FIELD 

1 


CONTENTS 

NCALC: Calculation Control 

0 - Read input and stop. Data of blocks A, B and V is required. Remaining 

data is optional. 

1 - One cycle through program. The same as executing ANALIZ stand-alone. 

Data of blocks A, B and V is required. Remaining data is optional. 

2 - Optimization. Data of blocks A-I and V is required. Remaining data 

is optional. 

3 - Sensitivity analysis. Data of blocks A, B, P, Q and V is required. 

Remaining data is optional. 

4 - Two variable function space. Data of blocks A, B, and R-V is required. 

Remaining data is optional. 












■tk 

o\ 


FIELD CONTENTS 

1 - cont. NCALC: 

5 - Optimum Sensitivity. Data of blocks A-K and V is required. Remaining 

data is optional. 

6 - Optimization using approximation techniques. Data of blocks A-0 and V 

is required. Remaining data is optional. 

2 NDV: Number of independent design variables in optimization. 

3 NSV: Number of variables on which sensitivity analysis will be performed. 

4 N2VAR: Number of objective functions in a two variable function space study. 

5 NXAPRX: Number of X-variables for approximate analysis/optimization. 

6 IPNPUT: Input print control. 

0 - Print card images of data plus formatted print of input data. 

1 - Formatted print only of input data. 

2 - No print of input data. 

7 IPDBG: Debug print control. 



DATA BLOCK C OMIT IF NDV - 0 IN BLOCK B 


DESCRIPTION: Integer optimization control parameters. 

FORMAT AND EXAMPLE 


1 

2 

3 

A 

5 

6 

7 

8 

FORMAT 

IPRINT 

ITMAX 

ICNDIR 

NSCAL 

ITRM 

LINOBJ 

NACMXl 

NFDG 

8110 

5 

0 

0 

0 

0 

0 

0 

0 



FIELD 

1 


CONTENTS 

IPRINT: Print control used in the optimization program CONMIN. 

0 - No print during optimization. 

1 - Print initial and final optimization information. 

2 - Print above plus objective function value and design variable values 

at each iteration. 

3 - Print above plus constraint values, direction vector and move parameter 

at each iteration. 

A - Print above plus gradient information. 

5 - Print above plus each proposed design vector, objective function and 
constraint values during the one-dimensional search. 




FIELD 


CONTENTS 


2 ITMAX: Maximum number of optimization iterations allowed. DEFAULT = 20. 

3 ICNDIR: Conjugate direction restart parameter. DEFAULT = NDV + 1. 

4 NSCAL: Scaling parameter. GT.O - Scale design variables to order of magnitude 

one every NSCAL iterations. LT.O - Seal design variables according to 
user-input scaling values. 

5 ITRM: Number of consecutive iterations which must satisfy relative or absolute 

convergence criterion before optimization process is terminated. DEFAULT ■ 3. 

6 LINOBJ : Linear objective function identifier. If the optimization objective is known 

to be a linear function of the design variables, set LINOBJ =* 1. 

DEFAULT Non-linear. 

7 NACMX1; One plus the maximum number of active constraints anticipated. DEFAULT » NDV + 

8 NFDG: Finite difference gradient identifier. 

0 - All gradient information is computed by finite difference within CONMIN. 

1 - All gradient information is computed analytically by the user-supplied code. 

2 - Gradient of objective is computed analytically. Gradients of constraints are 

computed by finite difference within CONMIN. 

REMARKS 

1) Currently NFDG must be zero in COPES. 



DATA BLOCK D OMIT IF NDV = 0 IN BLOCK B 


DESCRIPTION: Floating point optimization program parameters. 

FORMAT AND EXAMPLE 


1 

2 

3 

4 

5 

6 

7 


FORMAT 

FDCH 

FDC1IM 

CT 

CTMIN 

CTL 

CTLMIN 

THETA 


7F10 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 



DELFUN 

DABFUN 

ALP11AX 

ABOBJl 


4F10 

0.0 

0.0 

0.0 

0.0 




NOTE: 

TWO CARDS 

ARE READ HERE. 

FIELD 


CONTENTS 

1 

FDCH: 

Relative change in design variables in calculating finite difference 
gradients. DEFAULT = 0.01. 

2 

FDCHM: 

Minimum absolute step in finite difference gradient calculations. 
DEFAULT - 0.001. 



















FIELD 


CONTENTS 


3 CT: Constraint thickness parameter. DEFAULT = -0.05. 

4 CTMIN: Minimum absolute value of CT considered in the optimization process. 

DEFAULT « 0.004. 

5 CTL: Constraint thickness parameter for linear constraints. DEFAULT *= -0.01. 

6 CTLMIN: Minimum absolute value of CTL considered in the optimization process. 

DEFAULT = 0.001. 

7 THETA: Mean value of push-off factor in the method of feasible directions. 

DEFAULT = 1.0. 

1 DELFUN: Minimum relative change in objective function to indicate convergence of 

the optimization process. DEFAULT = 0.001. 

2 DABFUN: Minimum absolute change in objective function to indicate convergence of 

the optimization process. DEFAULT = 0.001 times the initial objective value. 

3 ALPHAX: Maximum fractional change in any any design variable for first estimate of 

the step, in the one-dimensional search. DEFAULT =» 0.1. 

4 AB0BJ1: Expected fractional change in the objective function for first estimate of 

the step in the one-dimensional search. DEFAULT « 0.1. 

REMARKS 


1) The DEFAULT values for these parameters usually work well. 



DATA BLOCK E OMIT IF NDV ■= 0 IN BLOCK B 


DESCRIPTION : Total number of design variables, design objective identification and sign. 

FORMAT AND EXAMPLE 


1 

2 

3 

FORMAT 

NDVTOT 

IOBJ 

SGNOPT 


2110, F10 

0 

3 

-1.0 




FIELD CONTENTS 

1 NDVTOT: Total number of variables linked to the design variables. This option 

allows two or more parameters to be assigned to a single design variable. 

The value of each parameter is the value of the design variable times a 
multiplier, which may be different for each parameter. DEFAULT = NDV. 

2 IOBJ: Global variable location associated with the objective function in optimization. 

3 SGNOPT: Sign used to identify whether function is to be maximized or minimized. 

+1.0 indicates maximization. -1.0 indicates minimization. If SGNOPT is 

not unity in magnitude, it acts as a multiplier as well, to scale the magnitude 

of the objective. 




DATA BLOCK F OMIT IF NDV ■ 0 IN BLOCK B 


DESCRIPTION : Design variable bounds, initial values and scaling factors. 


FORMAT AND EXAMPLE 


1 

2 

3 

A 

FORMAT 

VLB 

VUB 

X 

SCAL 


AF10 

.5 

5. 

0.0 

0.0 




NOTE: READ ONE CARD FOR EACH OF THE NDV INDEPENDENT DESIGN VARIABLES. 

FIELD CONTENTS 

1 VLB: Lower bound on the design variable. If VLB.LT.-1.0E+15, no lower bound. 

2 VUB: Upper bound on the design variable. If VUB.GT. 10.E+15, no upper bound. 

3 X: Initial value of the design variable. If X is non-zero, this will 

supercede the value initialized by the user-supplied subroutine ANALIZ. 
Design variable scale factor. Not used if NSCAL.GE.O in BLOCK C. 


A 


SCAL: 



DATA BLOCK G OMIT IF NDV = 0 IN BLOCK B 


DESCRIPTION: Design variable identification. 

FORMAT AND EXAMPLE 


1 

2 

3 

FORMAT 

NDSGN 

IDSGN 

AMULT 


2110, F10 

1 

1 

1.0 




NOTE: READ ONE CARD FOR EACH OF THE NDVTOT DESIGN VARIABLES. 


FIELD 

1 

2 

3 


CONTENTS 

NDSGN: Design variable number associated with this variable. 

IDSGN: Global variable number associated with this variable. 

AMULT: Constant multiplier on this variable. The value of the variable will be 

the value of the design variable, NDSGN, times AMULT. DEFAULT = 1.0. 




DATA BLOCK H OMIT IF NDV = 0 IN BLOCK B 
DESCRIPTION: Number of constrained parameters. 

FORMAT AND EXAMPLE 


1 FORMAT 


NCONS 


110 

4 




FIELD CONTENTS 

1 NCONS: Number of constraint sets in the optimization problem. 

REMARKS 


1) If two or more adjacent parameters in the global common block have the same limits 
imposed, these are part of the same constraint set. 






DATA BLOCK I OMIT IF NDV = 0 IN BLOCK B. OR NCONS = 0 IN BLOCK H 


DESCRIPTION: Constraint identification and constraint bounds. 


FORMAT AND EXAMPLE 


1 

2 

3 

/» 


FORMAT 

ICON 

JCON 

LCON 


3110 

4 

0 

0 



BL 

SCAL1 

BU 

SCAL2 



-1.0 +20 

0.0 

20000. 

0.0 




NOTE: READ TWO CARDS FOR EACH OF THE NCONS CONSTRAINT SETS. 

FIELD CONTENTS 

1 ICON: First global number corresponding to the constraint set. 

2 ICON: Last global number corresponding to the constraint set. DEFAULT =* ICON. 

3 LCON: Linear constraint identifier for this constraint set. LCON ■ 1 indicates 

linear constraints. 




FIELD 


CONTENTS 


1 

2 

3 

4 


BL: Lower bound on the constrained variables. If BL.LT.-1.0E+15, no lower bound. 

SCALl: Normalization factor on lower bound. DEFAULT = MAX of ABS(BL), 0.1. 

BU : Upper bound on the constrained variables. If BU.GT. 1.0E+15, no upper bound. 

SCAL2: Normalization factor on upper bound. DEFAULT = MAX of ABS(BU), 0.1. 


REMARKS 

1) The normalization factor should usually be defaulted. 

2) The constraint functions sent to CONMIN are of the form; 

(BL - VALUE) /SCALl .LE. 0.0 and (VALUE - BU)/SCAL2 .LE. 0.0. 

3) Each constrained parameter is converted to two constraints in CONMIN unless ABS(BL) or 
ABS(BU) exceeds 1.0E+15, in which case no constraint is created for that bound. 



DATA BLOCK J OMIT IF NXAPRX = 0 IN BLOCK B 


DESCRIPTION: Approximate analysis/optimization control parameters. 


FORMAT AND EXAMPLE 


1 

2 

3 

4 

5 

6 

7 

8 

FORMAT 

NF 

NXS 

NXFS 

NXA 

INOM 

ISCRX 

ISCRXF 

IPAPRX 

8110 

S 

1 

1 

1 

0 

0 

0 

1 


KMIN 

KMAX 

NPMAX 

JNOM 

INXLOC 

INFLOC 


6110 

0 

0 

0 

0 

0 

0 




FIELD 

1 

2 

3 

4 


CONTENTS 

NF: Number of functions to be approximated. Default = number of optimization 

.. v _ ... rv . , . . objective and constraint functions. 

NXS: Number of X-vectors read as data. J 

NXFS: Number of X-F pairs read as data. 

NXA: If non-zero, the design variables read by SUBROUTINE ANALIZ form an 

X-vector. 


5 


INOM: 


Nominal X-vector. Default = bost available 




tn 

00 


FIELD CONTENTS 

6 ISCRX: File from which NXS X-vcctors are read. Default = 5. 

7 ISCRXF: File from which NXFS X-F pairs of data are read. Default = 5. 

1 KMIN: Minimum number of approximation iterations. 

2 KMAX: Maximum number of approximation iterations. 

3 NPMAX: Maximum number of designs retained for Tayler series expansion. 

4 JNOM: Number of iterations after which the best design is picked as nominal. 

5 INXLOC: X-variablc global location identifier. If INXLOC = 0, the Tayler series 

expansion is on the design variables listed in BLOCK G. 

6 INFLOC: Function global location identifier. If INFLOC = 0, the Objective and 

constraint functions identified in BLOCKS E and I are the functions on which 
the Tayler series expansion is performed. 


REMARKS 

1) If ISCRX and/or ISCRXF file number is other than 5, the data read from that file 
is assumed to be binary data. 

2) If NXS = NXFS = 0, NXA is defaulted to NXA = 1, even is it is read as zero. Also, a second 
vector of design variables is automatically defined by COPES to yield two independent 
designs to start the optimization. 



DATA BLOCK K OMIT IF NDV - 0 IN BLOCK B, OR NXAPRX = 0 IN BLOCK B 


DESCRIPTION: Bounds and multipliers for approximate optimization. 


FORMAT AND EXAMPLE 


1 

2 

3 

4 

5 

6 

7 

8 

FORMAT 

DXI 

DX2 

DX3 

DX4 

DX5 

• • • 

i i * 

• * • 

8F10 

.5 

2. 








XFACT1 

XFACT2 


2F10 

0 . 

0 . 




NOTE: TWO OR MORE CARDS ARE READ HERE. 

FIELD CONTENTS 

1-8 DXI: Allowable change (in magnitude) of the Ith design variable during each 

approximate optimization. 

1 XFACT1: Multiplier on DXI when the diagonal elements of the H matrix are 

available. Default = 1.5. 

2 XFACT2: Multiplier on DXI when all elements of the H matrix are available. 

Default = 2.0. 




DATA BLOCK L OMIT IF NXAPRX = 0 IN BLOCK B OR INXLOC a 0 IN BLOCK J 


DESCRIPTION : Global locations of approximating variables. 

FORMAT AND EXAMPLE 


1 

2 

3 

4 

5 

6 

7 

8 

FORMAT 

LOCX1 

L0CX2 

L0CX3 

L0CX4 





8110 

1 

2 









NOTE: MORE THAN ONE CARD MAY BE READ HERE. 

FIELD CONTENTS 

1-8 LOCI: Global location of Ith approximating variable. 

REMARKS 


1) If INXLOC = 0 in BLOCK J, this data is not read. In this case, the data is defaulted 
to be the global locations of the design variables (IDSGN values in BLOCK G) . 




DMA BLOCK M OMIT IF NXAPRX = 0 IN BLOCK B OR INFLOC = 0 IN BLOCK J 


DESCRIPTION: Global locations of functions to be approximated. 

FORMAT AND EXAMPLE 


1 

2 

3 

4 

5 

6 

7 

8 

FORMAT 

L0CF1 

LOCF2 

LOCF3 

LOCF4 





8110 





3 

5 

6 

4 







NOTE: MORE THAN ONE CARD MAY BE READ HERE. 

FIELD CONTENTS 

1-8 LOCI: Global location of Ith function to be approximated. 

REMARKS 


1) If INFLOC = 0 in BLOCK J, this data is not read. In this case, the data is defaulted 
to be the global locations of the objective function (IOBJ in BLOCK E) followed by the 
global locations of the constrained parameters (ICON, JCON in BLOCK I). 




DATA BLOCK N OMIT IF NXS = 0 IN BLOCK J 


DESCRIPTION: X-Vectors for approximate optimization. 


FORMAT AND EXAMPLE 


1 

2 

3 

4 

5 

6 

7 

8 

FORMAT 

XII 

XI2 

XI3 

XI4 

• ■ • 

• « • 

• • • 

• « • 

8F10 

4. 

15. 









NOTE: NXS SETS OF DATA ARE READ HERE. 

NOTE: MORE THAN ONE CARD MAY BE READ FOR EACH SET OF DATA. 

FIELD CONTENTS 

1-8 XI J: Jth value of Ith X-vector, J = l.NXAPRX. 




DATA BLOCK 0 OMIT IF NXFS = 0 IN BLOCK J 


DESCRIPTION : X-F pairs of information for approximate optimization. 


FORMAT AND EXAMPLE 


12345678 FORMAT 


XI 

X2 

X3 

X4 

• • • 

• « • 

f • • 

• • • 

8F10 

2. 

18. 








Yl 

Y2 

Y3 

Y4 

Y5 

* • • 

• • • 

• • • 


7200. 

416.667 

.914495 

18518.519 







NOTE: NXFS SETS OF DATA ARE READ HERE. 

NOTE: MORE THAN ONE CARD MAY BE REQUIRED FOR XI OR YI. 

NOTE: NXAPRX VALUES OF X AND NF VALUES OF Y ARE READ FOR EACH SET OF DATA. 


FIELD 




CONTENTS 

1-8 

XI: 

Ith 

value 

of X, I = 1, NXAPRX. 

1-8 

YI: 

Ith 

value 

of Y, I = 1 ,NF. 




<T\ 


DATA BLOCK P OMIT IF NSV = 0 IN BLOCK B 


DESCRIPTION: Sensitivity objectives. 


FORMAT AND EXAMPLE 


1 

2 

3 

4 

5 

6 

7 

8 

FORMAT 

NSOBJ 

IPSENS 


2110 

5 

0 



NSNI 

NSN2 

NSN3 

NSN4 

NSN5 

♦ • • 

• * • 

• • • 

8110 

3 

4 

5 

6 

7 






NOTE: TWO OR MORE CARDS ARE READ HERE. 

FIELD CONTENTS 

1 NSOBJ: Number of seperate objective functions to be calculated as functions of 

the sensitivity variables. 

2 IPSENS: Print control. If IPSENS. GT.O, detailed print will be called at each 

step in the sensitivity analysis. DEFAULT = No print. 

1-8 NSNI: Global variable number associated with the sensitivity objective 

functions. 

REMARKS 

1) More than eight sensitivity objectives are allowed. Add data cards as required to 
contain data. 










DATA BLOCK Q OMIT IF NSV = 0 IN BLOCK D 


DESCRIPTION : Sensitivity variables. 

FORMAT AND EXAMPLE 


1 

2 

3 

A 

5 

6 

7 

8 

FORMAT 

ISENS 

NSENS 


2110 

9 

A 



SNSI 

SNS2 

SNS3 

SNSA 

« • • « 

• • • • 

* • • • 

.... 

8F10 

200. 

100. 

150. 

250. 







NOTE: READ ONE SET OF DATA FOR EACH OF THE NSV SENSITIVITY VARIABLES. 

NOTE: TWO OR MORE CARDS ARE READ FOR EACH SET OF DATA. 

FIELD CONTENTS 

1 ISENS: Global variable number associated with the sensitivity variable. 

2 NSENS: Number of values of this sensitivity variable to be read on the next card. 

1-8 SENSI; Values of the sensitivity variable. I » 1,NSENS. I =» 1 corresponds to 

the nominal value. 

REMARKS 

1) More than eight values of the sensitivity variable are allowed. Add data cards as 
required to contain the data. 




DATA BLOCK R OMIT IF N2VAR = 0 IN BLOCK B 


DESCRIPTION : Two variable function space control parameters. 


FORMAT AND EXAMPLE 


1 

2 

3 

4 

5 

FORMAT 

N2VX 

M2VX 

N2VY 

M2VY 

IP2VAR 


5110 

1 

4 

2 

5 

0 




FIELD 

1 

2 

3 

4 

5 


CONTENTS 

N2VX: Global location of the X-variable in the two variable function space. 

M2VX: Number of values of X to be considered. 

N2VY: Global location of the Y-variable in the two variable function space. 

M2VY: Number of values of Y to be considered. 

IP2VAR: Print control. If IP2VAR.GT.0, detailed print will be called at each 
step (each X-Y combination). DEFAULT = No print. 




DATA BLOCK S OMIT IF N2VAR = 0 IN BLOCK B 


DESCRIPTION : Objective functions of the two variable function space study. 


FORMAT AND EXAMPLE 


1 

2 

3 

A 

5 

6 

7 

8 

FORMAT 

NZI 

NZ2 

NZ3 

NZ4 

NZ5 

• • • 

• • • 

• • • 

8110 

3 

4 

5 

6 

7 






FIELD CONTENTS 

1-8 NZI: Global location corresponding to the Ith function of X and Y to be 

calculated. N2VAR values are read here. 


REMARKS 


1) More than eight objective functions are allowed. Add data cards as required to contain 



DATA BLOCK T OMIT IF N2VAR = 0 IN BLOCK B 


DESCRIPTION : Values of the X-variable in a two variable function space study. 


FORMAT AND EXAMPLE 


1 

2 

3 

4 

5 

6 

7 

8 

FORMAT 

XI 

X2 

X3 

X4 

• • • 

• • • 

• • • 

• • • 

8F10 

0.5 

1.0 

1.5 

2.0 







FIELD CONTENTS 

1-8 XI: Values of the X-variable in the two variable function space. M2VX values 

are read here. 


REMARKS 


1) More than eight values are allowed. Add data cards as required to contain the data. 




DATA BLOCK U OMIT IF N2VAR ~ 0 IN BLOCK B 


DESCRIPTION : Values of the Y-variable In a two variable function space study. 


FORMAT AND EXAMPLE 


1 

2 

3 

4 

5 

6 

7 

8 

FORMAT 

Yl 

Y2 

Y3 

Y4 

Y5 

• • • 

• • • 

• • • 

8F10 

4.0 

8.0 

12.0 

16.0 

20.0 






FIELD CONTENTS 

1-8 YI: Values of the Y-variable in the two variable function space. M2VY values 

are read here. 

REMARKS 

1) More than eight values are allowed. Add data cards as required to contain the data. 



DATA BLOCK V 


DESCRIPTION; COPES data 'END' card. 


FORMAT AND EXAMPLE 


1 FORMAT 


END 


3A1 

END 




FIELD CONTENTS 

1 The word 'END' in columns 1-3. 

REMARKS 

1) This card MUST appear at the end of the COPES data. 

2) This ends the COPES input data. 

3) Data for the user-supplied routine, ANAL1Z, follows this. 








A. 6 DESCRIPTION OF OUTPUT 


The first output item consists of a banner page related to 
the COPES control program and followed by card images of the 
COPES input data. The next output items contain COPES optimiza- 
tion information which will be employed by the optimization 
program. This is followed by a display of input information 
required by the ANALIZ subroutine and related to the control 
parameters , constant blade properties , variable blade properties , 
active design variables, and input information for the calibra- 
tion solution matrix. Next, is a display of input information 
required by the TSONIC blade-to-blade flow solver. Finally, a 
display is provided of the input information needed by the per- 
turbation method. 

The next items of output are related to the TSONIC solution 
for the baseline blade profile. The first item consists of the 
input information on design variables and constant blade properties 
that is provided to the blade element program which then performs 
the computation necessary to determine blade property character- 
istics required as input to the TSONIC code. The next items are 
the input to the TSONIC code and the output generated by the code 
for the flow solution. This is followed by output from OBJCON 
related to the objective function and active constraints. The 
next item is the banner page of information that will initiate 
the CONMIN minimization procedure. The optimization search cycles 
are then begun. The output that follows depends upon which IOPT 
option was specified. However, regardless of the IOPT option 
selected, each time a TSONIC flow solution is required by the 
optimization package, the following segment of output is produced: 
the input information regarding design variables and constant 
blade properties that is provided to the blade element program is 
displayed, followed by the input to the TSONIC code, the output 
from TSONIC, and finally, output from OBJCON related to the cur- 
rent objective function and active side constraint values for the 
TSONIC solution just calculated. Consequently, for IOPT =1, for 
which TSONIC solutions are used throughout the optimization 
process, the above segment of information is displayed for each 
TSONIC solution for the gradient and search calculations. At the 
end of each iteration cycle, CONMIN provides output regarding the 
ending values of the design variables and side constraints. This 
continues until the ITMAX limit is reached, or the objective 
function has not changed within the last three iterations, at 
which point the final optimization results are printed, followed 
by a final TSONIC calculation at the design point. For the 
IOPT = 2 option, after the base solution is computed, the cali- 
bration solution matrix is determined based on user-supplied 
information. The optimization cycles then proceed using 
perturbation-predicted solutions for the blade surface velocities. 
When the optimization process is complete, a final TSONIC solution 
is calculated at the design point and a printer plot provided 
exhibiting a comparison of the perturbation-predicted surface 
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velocity distribution with the TSONIC result. For the IOPT = 3 
option, the optimization process is allowed to proceed with 
TSONIC solutions only as with IOPT = 1, but only for one search 
cycle. Then, based on the new base design point reached, design 
variable values for a calibration solution matrix are determined. 
Next, each of the TSONIC solutions for the new base and calibra- 
tion solutions are separately determined, with output provided 
after each solution regarding number of critical points, and 
strained coordinate and surface pressure arrays. Following the 
final calibration solution, summary output is provided regarding 
the base coordinates, the strained coordinate arrays for each 
calibration solution, and the corresponding surface velocity 
arrays. Next, the CONMIN optimization search cycles are entered 
using the perturbation method to predict all flow solutions 
required in the gradient and search calculations. The search 
cycles are continued to the ITMAX3 limit or until the objective 
function does not change for three successive iterations, at 
which point the final optimization results are printed, followed 
by a final TSONIC calculation at the design point, and a printer 
plot illustrating comparisons between the perturbation method 
predicted surface velocities distribution and the nonlinear 
TSONIC result. 


A. 7 ERROR MESSAGES 

NUMBER OF CRITICAL POINTS IN 
BASE AND CALIBRATION SOLUTIONS 
ARE UNEQUAL - CALCULATION ENDED 

This message will be printed if critical points are speci- 
fied in straining (LSPEC = 0) and the number of critical points 
in base and calibration solutions are unequal. The remedy is 
to avoid use of critical points in straining, or to use base 
and calibration solutions having equal numbers of critical 
points . 


NUMBER OF CRITICAL POINTS 
SELECTED EXCEEDS NUMBER 
ACTUALLY LOCATED - CALCULATION 
ENDED 

This message will be printed if more critical points are 
specified in straining (LSPEC = 0) than the number located by 
the program. The remedy is to specify a number of points less 
than or equal to the actual number. 

ORDER OF SPECIFIED POINTS IN 
BASE AND CALIBRATION SOLUTIONS 
DOES NOT CORRESPOND - CALCULATION 
ENDED 
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This message will be printed if the fixed points specified 
(LSPEC = 0) occur in a different sequence in the base and cali- 
bration solutions. The remedy is to use base and calibration 
solutions having the same qualitative features. 


A . 8 SAMPLE CASE 

The sample case presented in this section provides example 
results of the perturbation method for the blade design optimi- 
zation problem described in Section 3 of the main text. The 
calculation is for the simultaneous six design variable (KOCR, T, 
ZM f P, TMX, THLE) optimization of full potential turbomachinery 
flows past compressor blades having NASA double circular arc 
blade profiles with the following initial values, lower, and 
upper bounds, respectively, of these parameters: (-10.0, 0.25, 

0.45, 1.5, 0.05, 0.005), (-15.0, 0.20, 0.50, 0.03, 0.003), (0.00, 
0.60, 0.55, 4.00, 0.10, 0.012). 

The input data is tabulated in Figure A.l with the COPES 
data appearing first, followed by the inputs for subroutine 
ANALIZ, subroutine TSONIC, and subroutine PERTURB. We note that 
in the input for subroutine PERTURB, the number of invariant 
points to be held invariant for this calculation were chosen to 
be one (NSELCT = 1) , and that particular point was chosen as the 
maximum point (LSELCT(l) = 2, i.e.), the stagnation point, and 
that the dependent variable for print output will be symbolized 
by 'WM' denoting the surface speed. Examination of the sample 
input and comparison with the description of input data provided 
in Sections A. 5.1 to A. 5. 3 provides a convenient, self-explanatory 
menu of how to prepare typical input data sets for future case 
studies . 

Finally, Figure A. 2 provides an abbreviated print output for 
this sample case. That output, together, with the information 
contained in Appendix A, provides a benchmark result that can be 
employed to completely verify the BLDOPT code on any user 
facility. 
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S— DATA BLOCK A 

OPTIMIZATION TEST CASE 1 - MINIMIZE SUCTION SURFACE VELOCITY DIFFUSION 
S— DATA BLOCK B 

S NCALC NDV NSV N2VAR NXAPRX IPNPUT IPDB6 

? 6 

S— DATA BLOCK C 

$ IPRINT ITMAX 1CNDIR NSCAL ITRM LINQBJ NACMX1 

5 1 -2 3 20 

S DATA BLOCK 0 

$ ALL DEFAULTS EXCEPT FDCH AND FDCHM 


S FDCH FDCHM 



o.oi o.ooion 



s oelfun oabfun 

ALPHAX 

ABOBJI 

0.0 0.0 

OtO 

0.05 

S DATA BLOCK E 



s ndvtot IO0J 

SGNOPT 


1 

-1.0 


% DATA BLOCK F 



S VLB VUB 

X 

SCAL 

S OUTLET BLADE ANGLE - 

KOCR 


-15.0 0.0 

0.0 

-10.0 

S TRANSITION POINT LOCATION - T 


0.2 0.60 

0.0 

0.25 

S MAXIMUM THICKNESS LOCATION - ZM 


0.2 0.55 

o.o 

0.45 

% INLET/OUTLET TURNING 

RATE - P 


0.5 4.0 

0.0 

1.5 

S MAXIMUM THICKNESS - 

TMX 


0.03 0.10 

o.o 

0.05 

S LEADING EDGE RADIUS 

- thle 


0.003 0.012 

0.0 

0.005 


% DATA BLOCK G 

S NOSGN IDSGN AMULT 
S OUTLET BLADE ANGLE - KOCR 
1 2 1.0 

* TRANSITION POINT LOCATION - T 

2 3 1.0 

S MAXIMUM THICKNESS LOCATION - ZM 

3 A 1.0 

$ INLET/OUTLET TURNING RATE - P 



4 

5 

1.0 

S 

MAXIMUM THICKNESS - 

TMX 


5 

6 

1.0 

s 

LEADING EOGE 

RADIUS 

- thle 


6 

7 

1.0 

S— DATA BLOCK 

H 



S NCONS 

3 

* DATA BLOCK I 

S ICON JCON LCON 

S BL SC AL 1 BU SCAL2 

* LOCAL BLADE THICKNESS CONSTRAINT - BLTKS 

8 

0.0 10 . 

S PRESSURE SURFACE DIFFUSION - DIFFP 
9 

0.0 1.6 

J TRAILING EDGE CLOSURE - TECLSR 
10 

“ 1 . 1 . 

$ DATA BLOCKS J-U NOT REQUIRED 


NDFG 


Figure A.I.- Card input for sample case 



S— DATA BLOCK V 
END 

•** INPUT FOR SUBROUTINE ANALIZ 


3 6 3 6 



34 0.454 

6. 664 

2.252 





52.0 

-10.0 

0.25 

0.45 

1.5 

0.05 

0.005 

0.00 

KOCR 

T 

ZM 

P 

TMX 

thle 



2 

3 4 

5 6 

7 






0 0.0 







*** INPUT FOR 

t SUBROUTINE TSONIC 

ttt 




1.400 

1716.48 

599.76 

.00334586 .00570000 


0.0 

1.910 

48.2 

0.0 

0.0 

0.0 

0.0 

0.0 



1.0 

0.001 

0.0 

0.0 





24 

56 

72 

15 34 

13 0 

1 0 







13.0 








13.0 




-.13 

-.005 

.005 

.02003 

. 04003 

.08003 

*10003 

.12503 

.15004 

.17526 

.18526 

.22500 

.27 




.4540 

.4540 

.4540 

.4540 

.4540 

• 4540 

• 4540 

.4540 

.4540 

• 4540 

.4540 

.4540 

.4540 




*05 

*05 

*0499 

.0496 

.04925 

.0485 

•04815 

.04770 

.04720 

.04675 

.04661 

.04661 

.04661 




0 . 

0 . 

.0015 

.0059 

.0110 

.0215 

.0300 

.0335 

• 0400 

.0470 

.040 

.048 

. 048 




0 

0 0 

0 0 

0 1 






SEND 

INPUT FOR SUBROUTINE PERTR8 #** 

OPTIMIZATION TEST CASE 1 - MINIMIZE SUCTION SURFACE VELOCITY DIFFUSION 
1 1 0 
2 

WM 

KOCR T ZM P TMX THLE 

- 1.0 1.0 


Figure A.I.- Concluded 



<T\ 


CCCCCCC 

ooooooo 

ppppppp 

eeeeeee 

sssssss 

C 

0 

0 

p p 

E 

s 

c 

0 

0 

p p 

E 

s 

C 

0 

0 

ppppppp 

eeee 

sssssss 

c 

0 

0 

p 

E 

s 

c 

0 

0 

p 

E 

s 

ccccccc 

ooooooo 

p 

EEEEEEE 

sssssss 


CONTROL PROGRAM 
FOR 

ENGINEERING synthesis 


TITLE 

OPTIMIZATION TEST CASE 1 - MINIMIZE SUCTION SURFACE VELOCITY DIFFUSION 


Figure A. 2.- Abbreviated print output for sample case 



CARD IMAGES OF CONTROL OATA 


CARD IMAGE 

1) S DATA BLOCK A 

2) OPTIMIZATION TEST CASE i - MINIMIZE SUCTION SURFACE VELOCITY DIFFUSION 

3) S— DATA BLOCK B 


4) 

5) 

6) 

S 

s— 

NCALC 

2 

-DATA BLOCK 

NDV 

6 

C 

NSV 

N2VAR 

NXAPRX 

IPNPUT 

IPDBG 


7) 

8) 

s 

IPRINT 

5 

ITMAX 

1 

ICNDIR 

NSCAL 

-2 

I TRM 
3 

LINOBJ 

NACHX1 

20 

NDFG 


9) S— DATA BLOCK D 

10) S ALL DEFAULTS EXCEPT FOCH AND FDCHM 


ID 

S 

FDCH FDCHM 



12) 


0.01 0.00100 



13) 

s 

OELFUN DABFUN 

ALPHAX 

ABOBJ1 

14) 


0.0 0.0 

0.0 

0.05 

15) 

S DATA BLOCK E 



16) 

S 

NDVTOT 10BJ 

SGNOPT 


17) 


1 

-1.0 


18) 

S— DATA BLOCK F 



19) 

S 

VLB VUB 

X 

SCAL 

20) 

s 

OUTLET BLADE ANGLE - 

KOCR 


21> 


-15.0 0.0 

0.0 

-10.0 

22) 

s 

TRANSITION POINT LOCATION - T 


23) 


0.2 0.60 

0.0 

0.25 

24) 

s 

MAXIMUM THICKNESS LOCATION - ZM 


25) 


0.2 0.55 

0.0 

0.45 

26) 

s 

INLET/OUTLET TURNING 

RATE - P 


27) 


0.5 4.0 

0.0 

1.5 

28) 

$ 

MAXIMUM THICKNESS - 

TMX 


29) 


0.03 0.10 

0.0 

0.05 

30) 

% 

LEADING EDGE RADIUS 

- THLE 


31) 


0.003 0.012 

0.0 

0.005 

32) 

S DATA BLOCK G 



33) 

S 

NDSGN IDSGN 

AMULT 


34) 

% 

OUTLET BLADE ANGLE - 

KOCR 


35) 


1 2 

1.0 


36) 

S 

TRANSITION POINT LOCATION - T 


37) 


2 3 

1.0 


38) 

S 

MAXIMUM THICKNESS LOCATION - ZM 


39) 


3 4 

1.0 


40) 

S 

INLET/OUTLET TURNING 

RATE - P 


41) 


4 5 

1.0 


42) 

S 

MAXIMUM THICKNESS - 

TMX 


43) 


5 6 

1.0 


44) 

S 

LEADING EDGE RADIUS 

- ThLE 


45) 


6 7 

1.0 


46) 

$— -data block h 



47) 

s 

NCONS 



48) 


3 



49) 

S— -DATA BLOCK I 



50) 

s 

ICON JCON 

LCON 


51) 

s 

BL SCAL1 

BU 

SCAL2 

52) 

% 

LOCAL BLADE THICKNESS CONSTRAINT 

- BLTKS 

53) 


fl 



54) 


0.0 

10. 



55) S PRESSURE SURFACE DIFFUSION - DIFFP 

56) Q 


^1 


Figure A. 2 . - Continued 



CO 


5 7 ) 

0.0 

1.6 

58) 

$ TRAILING FDGE CLOSURE 

- TECL5R 

59) 

10 


60) 

-1 . 

1. 

61) 

S DATA BLOCKS J-U NOT 

REQUIRED 

62) 

5 DATA BLOCK V 


63) 

END 



Figure A. 2 


Continued 



TITLE: 

OPTIMIZATION TEST CASE 1 - MINIMIZE SUCTION SURFACE VELOCITY DIFFUSION 


CONTROL PARAMETERS* 

CALCULATION CONTROL. NCALC = 2 
NUMBER OF GLOBAL DESIGN VARIABLES, NDV = 6 
NUMBER OF SENSITIVITY VARIABLES, NSV = 0 
NUMBER OF FUNCTIONS IN TWO-SPACE. N2VAR = 0 
NUMBER OF APPROXIMATING VAR. NXAPRX “ 0 
INPUT INFORMATION PRINT CODE* IPNPUT = 0 
DEBUG PRINT CODE* IPDBG = 0 


CALCULATION CONTROL. NCALC 
VALUE MEANING 

1 SINGLE ANALYSIS 

2 OPTIMIZATION 

3 SENSITIVITY 

4 TWO-VARIABLE FUNCTION SPACE 

5 OPTIMUM SENSITIVITY 

6 APPROXIMATE OPTIMIZATION 


• • OPTIMIZATION INFORMATION 

GLOBAL VARIABLE NUMBER OF OBJECTIVE * 1 

MULTIPLIER (NEGATIVE INDICATES MINIMIZATION) = -.1000E*01 


CONMIN PARAMETERS (IF ZERO, CONMIN DEFAULT WILL OVER-RIDE) 


IPRINT 

ITMAX ICNDIR 

NSCAL I TRM 

LINOBJ 

NACMX1 

NFDG 

5 

1 0 

-2 3 

0 

20 

0 

FDCH 

FDCHM 

CT 


CTMIN 


• iOOOOE-O l .lOOOOE-02 0. 


0 . 


CTL 

CTLMIN 

THETA 

PHI 


0. 

0 . 

0 . 


0 , 


DELFUN 

DABFUN 

ALPHAX 

ABOBJ1 


0 . 

0 . 

0. 


•50000E-01 

OESIGN VARIABLE INFORMATION 




NON-ZERO 

INITIAL VALUE 

WILL OVER-RIDE 

MODULE INPUT 


D. V. 

LOWER 

UPPER 

INITIAL 



NO. 

BOUND 

BOUND 

VALUE 


SCALE 

1 

-• 15000E * 02 

0 * 

0 . 

- 

1 0000E ♦ 02 

2 

•20000E*00 

• 60000E* 00 

0 . 


25000E ♦00 

3 

•20000E*00 

•55000E+00 

0. 


45000E*00 

4 

•50000E+00 

• 40000E * 0 1 

0 . 


15000E*01 

5 

•30000E-01 

• 1 OOOOE + OO 

0 . 


S0000E-01 

6 

• 30000E-02 

. 12000E-01 

0 . 


S0000E-02 


DESIGN VARIABLES 

D. V. GLOBAL MULTIPLYING 

id no. var, no. factor 

1 1 2 • 1 QGOOE *0 1 


L0 


Figure A. 2.- Continued 


2 2 3 . 10000E*01 

33 4 • 1 OOOOE^Ol 

4 4 5 .lOOOOfOl 

5 5 6 ,1000 OE *01 

00 667 . 1 OOOOE * 0 1 

O 

CONSTRAINT INFORMATION 


UPPER NORMALIZATION 

BOUND FACTOR 

. 1 OOOOE* 02 • 1 OOOOE*02 

• 1 6000E ♦ 0 1 • 1 600 OE ♦ 0 1 

• 1 OOOOE* 0 1 • 1 OOOOE* 0 1 

TOTAL NUMBER OF CONSTRAINED PARAMETERS = 3 


• • ESTIMATED DATA STORAGE REQUIREMENTS 

REAL INTEGER 

INPUT EXECUTION AVAILABLE INPUT EXECUTION AVAILABLE 

57 779 5000 34 112 1000 


there 

ARE 3 
GLOBAL 

CONSTRAINT SETS 
GLOBAL LINEAR 

LOWER 

NORMALIZATION 

ID 

VAR. 1 

VAR. 2 

ID 

BOUND 

FACTOR 

1 

8 

0 

0 

0 . 

• 1 OOOOE* 00 

3 

9 

0 

0 

0 . 

• 1 OOOOE * 00 

5 

10 

0 

0 

-.10000E*01 

• 1 0000E*01 


Figure A. 2.- Continued 



--- INPUT FOR CONTROL SUBROUTINE ANALIZ — 

CONTROL PARAMETERS 

IOPT = 3 NDV □ 6 NCN = 3 ITMAX3 = 6 

CONSTANT BLADE PARAMETERS 

N0 R ALP SOLID 

34 .4540 6.6640 2.2520 

VARIABLE BLAOE PARAMETERS 


K ICR KOCR 

T 

ZM 

P 

TMX 

THLE 

THTE 

52.0000 -10.0000 

.2500 

.4500 

1.5000 

.0500 

.0050 

.0050 


ACTIVE DESIGN VARIABLES 

KOCR T ZM P T MX THLE 

-10.0000 .2500 .4500 1.5000 .0500 .0050 


ICALB = 0 PSTEP h 0-000 


Figure A. 2.- Continued. 

CD 



INPUT FOR TSONIC BL A DE-T 0-8LADE FLOW SOLVER 



GAM 

AR 

TIP 

RHOIP 

WTFL 


OMEGA 

ORF 

1.400000 

1716.480 

599 . 7b0 0 

• 3345860E-02 

.5700000E-02 

0 . 

0 . 

1.910000 

BETA I 

BET AO 

CHORUF 

STGRF 

' FSMI 

FSMO 



48.20000 

0 . 

0 . 

0 . 

0 . 

0 . 



redfac 

DENTOL 

SSM1 

SSM2 





1.000000 

•1000000E-02 

0 . 

0 . 





MB I MBO 

MM 

NBBl NBL 

NRSP MOPT 

LOPT LRVB 




24 56 

0 0 72 

! lb 34 

13 0 

1 0 




BLADE SURFACE 

1 — UPPER SURFACE 






RI1 

RO 1 

BETI1 

BETOl 

SPLNOl 




0 * 

0 . 

0 . 

0 . 

13.00000 




MSP 1 ARRAY 








0 . 

0 . 

0 . 

0 . 

0. 

0. 

0 . 

0. 

0 . 

0 . 

0. 

0 . 

0 . 




THSP1 ARRAY 








0 . 

0 . 

0 . 

0 . 

0 . 

0. 

0 . 

0 . 

0. 

0 . 

0 . 

0 . 

0 . 




BLADE SURFACE 

2 — LOWER SURFACE 






RI2 

RO? 

BET 1 2 

BET02 

SPLN02 




0. 

0 . 

0. 

0. 

13.00000 




MSP2 ARRAY 








0 . 

0. 

0 . 

0. 

0. 

0. 

0 . 

0. 

0 . 

0 . 

0. 

0 . 

0 . 




THSP2 ARRAY 








0. 

0 , 

0 . 

0. 

0 . 

0. 

0 . 

0 . 

0. 

0 . 

0 * 

0 . 

0 . 



- 

MR ARRAY 








-.1300000 

-.5000000E-02 

•5000000E-02 

•2003000E-01 

•4003000E-01 

• 80 03 0 0 OE-0 1 

.1000300 

•1250300 

•1500400 

.1752600 

•1852600 

•2250000 

•2700000 




RMSP ARRAY 








•4540000 

.4540000 

•4540000 

.4540000 

•4540000 

.4540000 

.4540000 

.4540000 

•4540000 

•4540000 

.4540000 

.4540000 

.4540000 




BE5P ARRAY 








•5000000E-01 

•5000000E-01 

• 4990000E- 0 1 

• 4960000E-0 1 

.4925000E-01 

•4850000E-01 

.4815000E-01 

.4770000E 

•4720000E-01 

•4675000E-01 

• 466 1 00 0E- 0 1 

• 466 1 OOOE-0 1 

• 466 1 OOOE-0 1 




PLOSS ARRAY 








0. 

0 . 

• 1500000E-02 

• 5900000E-02 

•1100000E-01 

•2150000E-01 

•3000000E-01 

■ 3350000E 

•4000000E-01 

•4700000E-01 

•4800000E-01 

.4800000E-01 

•4800000E-01 





BLOAT AANDK ERSOR STRFN SLCRO INTVL SURVL 

0 0 0 0 0 0 1 


Figure A. 2 
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INPUT FOR PERTURBATION METHOD 




>*#■ 


OPTIMIZATION TEST CASE 1 - MINIMIZE SUCTION SURFACE VELOCITY DIFFUSION 




LIST OF INPUT PARAMETERS 
N ■ 62 


A « -1.0 B « 1.0 


NPARAM * 6 


»STRAININ6 OPTIONS 
NUMBER OF FIXED POINTS! 3 

FIXED POINTS WILL BE AUTOMATICALLY DETERMINED 
BY THE PROORAM FOR ALL SOLUTIONS AS follows: 

TWO END POINTS 
POINT OF MAXIMUM WM 


Figure A. 2 
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*** INPUT FOR BLADE ELEMENT PROGRAM *** 


00 



NO, 

BLADES 

INLET 

RADIUS 

(L) 

CONE 

angle 

(DEG) 

SOLIDITY 

INLET 

BLADE 

ANGLE 

(DEG) 

OUTLET 

BLAOE 

ANGLE 

(DEG) 

TRANS. 

LOC. 

/CHORD 

MAX.TH. 

LOC. 

/CHORD 

IN/OUT 

TURNING 

RATE 

MAX % 
THICK, 
/CHORD 

L , E« 
RAD. 
/CHORD 

T.E. 

RAD* 

/CHORD 


34 

.45400 

6,66400 

2.25200 

52.000 

-10.0000 

.25000 

.45000 

1.50000 

.05000 

•00500 

•00500 


Figure A. 2.- Continued 



INPUT FOR TSONIC BL AUE-TO-BLADE FLOW SOLVER 


GAM 

AR 

TIP 

RHOIP 

1.400000 

1716.400 

599.7600 

.3345860E-02 

BETAI 

BETAO 

CHORDF 

STGRF 

48.20000 

0 . 

.1834184 

.1311528 

reofac 

OENTOL 

SSM1 

SSM2 

1.000000 

.1000000E-02 

0. 

0 . 

MB! HBO 

MM 

NBBI NBL 

NRSP MOPT 

24 56 

0 0 72 

15 34 

13 0 

BLADE SURFACE 1 

— UPPER SURFACE 


RI1 

R01 

BETH 

BETOl 

•9660364E-O3 

•9668364E-03 

57.62951 

-13.13649 

MSP1 ARRAY 

• 15031 13E-03 

•59001 07E-02 

.1529854E-01 

• 2744253E-0 1 

.1218970 

.1423000 

.1585911 

.1727172 

THSP1 ARRAY 

.1140045E-02 

• 19501 39E-0 1 

.4336945E-01 

, 67268 18E-0 1 

.1435478 

.1447487 

•1423112 

.1377348 

BLADE SURFACE 2 

— LOWER SURFACE 


RI2 

R02 

BET 12 

BET02 

.9660364E-O3 

.9668364E-03 

46.20771 

-5.047831 

MSP2 ARRAY 

.1664R65E-02 

•8669538E-02 

• 1 91 1 677E-0 1 

• 310924 IE-01 

.1235102 

.1430679 

.1507932 

.1725519 

TH5P2 ARRAY 

-.1473028E-02 

.1370723E-01 

•3337744E-01 

•5345856E-01 

.1264542 

.1307850 

.1317585 

.1308042 

MR ARRAY 

-.1300000 

-.5000000E-02 

.5000000E-02 

.2003000E-01 

•1500400 

.1752600 

.1852600 

.2250000 

RHSP ARRAY 

.4540000 

.4540000 

.4540000 

.4540000 

•4540000 

•4540000 

.4540000 

.4540000 

BESP ARRAY 

.500Q000E-01 

.5000000E-01 

.4990000E-01 

•4960000E-01 

•4720O00E-0 1 

•4675000E-01 

.4661000E-01 

.466 1 OOOE-O l 

PLOSS AHRAY 

0 . 

0 . 

.1500000E-02 

.590Q000E-02 

.4000000E-01 

.4700000E-01 

.4800000E-01 

.4800000E-01 


BLDAT AANDK ERSOR STRFN SLCRO INTVL SURVL 

0 0 0 0 0 0 1 


WTFL OMEGA ORF 

.570Q00QE-02 0. 0, 1.910000 

FSMI FSMO 

0 . 0 . 


LOPT LRVB 
1 0 


SPlNOl 

13.00000 


. 444 74 12E-0 1 
•1826658 

•6273379E-01 

.818767 QE-01 

•1016760 

• 91 78661 E-0 1 
.1330935 

.1116067 

•1269242 

.1375985 

SPLN02 

13.00000 




.4893131E-01 

.1023521 

•6676995E-01 

•8523057E-01 

.1041871 

• 748420 IE-01 
•1290985 

•9279699E-0 1 

.1074271 

.1186613 

.4003000E-01 

.2700000 

•8003000E-01 

.1000300 

•1250300 

.4540000 

•4540000 

.4540000 

.4540000 

.4540000 

.4925000E-01 

.4661000E-01 

•4850000E-01 

•4015O0OE-O1 

.4770000E-01 

. UOOOOOE-Ol 
•4800000E-01 

.2150000E-01 

•3000000E-01 

• 335QQQ0E-0 1 


Figure A. 2.- Continued. 


00 

U1 



RELATIVE 

meridional 

CRITICAL 

REL. FLOW 

VELOCITY 

VELOCITY 

VELOCITY 

ANGLE 

AT M : F SMI 

AT Ms FSMI 

AT M H FSMI 

AT UPSTREAM BDY • 

745.90 

497.17 

1095.9 

48.237 

AT H H F5MO 

AT M = FSMO 

AT M = FSMO 

AT DOWNSTREAM BDY 

499.45 

499.45 

1095.9 

0. 

FSMI = 0. 




FSHO * .18342 





calculated PROGRAM 

CONSTANTS 



PITCH 

HT 

HM 1 



.1847996 

.1231997E-01 .5731826E-02 



I THIN 

I T MAX 




0 

25 




LAMBDA 

DOWNSTREAM WHIRL (RVTHO) 



252.4466 


0 . 



REDUCED WEIGHT 

FLOW = 

.5700000E-02 



NUMBER OF INTERIOR MESH 

POINTS = 1035 



CALCULATED VELOCITY 

diagram 

INFORMATION 




1M 

W 

W/WCR 

BETA 

UPSTREAM BOUNDARY 

1 

745.47 

.60022 

48.237 

LEADING EDGE 

24 

745.90 

•68061 

48.200 

TRAILING EDGE 

56 

499.45 

.45573 

0 . 

DOWNSTREAM BOUNDARY 

72 

500.06 

.45629 

0 . 
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ITERATION NO. 1 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = *3059 AT IH =0* IT = 11, SURF * 1, Ms .1779 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = ,1105 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS = 86 


ITERATION NO. ? 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = ,2601 M IM =0, IT * 11, SURF * l, M « .1779 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .2909E-01 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS = 86 


ITERATION NO. 3 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .4396 AT IM =0, IT « 11, SURF « 1, M « .1779 

AVEHAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .1291E-01 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS * 85 


ITERATION NO. 4 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS s 3.182 AT IM =0, IT * lit SURF ■ 1. M * .1779 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS * .3816E-01 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS = 53 

DENSTY CALL NO. 9 
NER(l) * 1 

RHO*W IS 1.2430 TIMES THE MAXIMUM VALUE FOR RHO«W 


ITERATION NO. 5 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .8418 AT IM =0, IT s U, SURF « 1, M « .1779 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS * .1041E-01 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS = 22 


ITERATION NO. 6 

MAXIMUM RELATIVE CHANGE IN OENSlTY AT BLADE SURFACE POINTS = .3818 AT IM =0, IT * lit SURF ■ It H * .1779 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS h .4669E-02 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS « 12 


ITERATION NO. 7 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = 1.655 AT IM = Ot IT * lit SURF « 1, H 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .1857E-01 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS = 8 

OENSTY CALL NO. 9 
NER(l) = 2 

RHO*W IS 1.2455 TIMES THE MAXIMUM VALUE FOR RHO*W 


.1779 


ITERATION NO. 8 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .7274 AT IM =0, IT = 11, SURF =1, M □ .1779 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .0167E-O2 


00 


Figure A. 2.- Continued 



NUMBER OF UNCONVERGFD BLADE SURFACE MESH POINTS = 1 


ITERATION NO. 9 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .3803 AT IM =0* IT = 11, SURF * 1, M = .1779 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .4269E-02 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS = 1 


ITERATION NO. 10 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = 1.635 AT IM b 0* IT = 11, SURF * 1, M * .1779 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS h . 1820E-01 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS = 1 

DENSTY CALL NO. 9 
NERU1 = 3 

RHO*W IS 1.2472 TIMES THE MAXIMUM VALUE FOR RHO*W 


ITERATION NO. 11 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS « .7251 AT IM a 0, I T = II, SURF * 1, M * .1779 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .8072E-02 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS b 1 


Figure A. 2.- Continued 





Surface 

VELOCITIES 

BASED ON MERIDIONAL COMPONENTS 

- REDUCED 

WEIGHT FLOW 

M 

velocity 

rladf 

ANGLE 1 DEG> 

SURFACE 1 
SURF. LENGTH 

W/WCR 

* 

* VELOCITY 

BLADE SURFACE 2 
ANGLE(DEG) surf, length 

0. 

0, 

90.00 

0. 

0. 

* 0. 

-90.00 

0. 

•5732F-02 

B71.6 

52.87 

• 1 030E-01 

.7953 

• 608.5 

44.24 

.66B0E-02 

.11 46f* “0 1 

909.? 

48.47 

• 1 935E-0 1 

.8296 

• 579.5 

41.58 

.1451E-Q1 

• 1720F-01 

919.0 

44.47 

• 2767E-0 1 

.8385 

• 554.2 

39,02 

• 2202E-01 

.2293F-01 

910.1 

40.64 

• 3545E- 0 1 

.8304 

* 536.5 

36.57 

• 2927E-01 

.2866F-01 

804.7 

36.99 

•4201E-O1 

.8073 

• 524.6 

34.15 

« 363QE-0 1 

.3439F-01 

848.7 

33.70 

• 4 904E- 0 1 

.7744 

• 515.5 

31.78 

.4313E-01 

.4012E-01 

811.1 

30.94 

■ 566 1 E-Q 1 

.7401 

* 509.7 

29.64 

•4980E-Q 1 

. 4505F-O 1 

782.6 

28.8 2 

.6322E-01 

.7141 

* 506.7 

27.78 

.5633E-01 

.5159E-01 

760.0 

26.89 

* 697 1 E-0 1 

.6935 

* 502.7 

26.21 

•6277E-Q1 

• 5732F-0 1 

743.6 

24.95 

.76O0E-O1 

.6785 

* 498.7 

24.60 

.691 IE-01 

.6305E-01 

727.9 

23.02 

, 8235E-0 1 

• 6642 

* 493.4 

23.16 

• 7538E-0 1 

.6878E-01 

716.3 

21.09 

• 88546-01 

.6536 

* 489.6 

21.65 

.0 158E-01 

.7451E-01 

705.9 

19.20 

.9464E-01 

.6441 

* 485.1 

20.15 

.8772E-01 

.8025E-01 

694.6 

17,36 

.1007 

.6338 

* 482.3 

18.68 

. 9380E-0I 

.8598E-01 

687.5 

15.55 

.1067 

.6273 

* 479.9 

17.23 

•9962E-01 

•9171E-01 

680.8 

13.75 

.1126 

.6212 

* 476.3 

15.79 

• 1058 

.9744E-01 

672.8 

11.97 

.1185 

.6139 

* 474.2 

14.37 

.1117 

.1032 

666. B 

10.22 

.1243 

.6085 

* 471.9 

12.96 

.1176 

.1009 

660.3 

0.47 

.1301 

.6025 

* 469.8 

11.56 

.1235 

.1146 

653.6 

6.73 

.1359 

.5964 

* 466.0 

10.17 

.1293 

.1204 

646.4 

5.01 

.1417 

.5898 

• 465.3 

6.80 

• 1351 

.1261 

639.3 

3.30 

.1474 

.5834 

* 464.7 

7.45 

.1409 

.1318 

632.1 

1.60 

.1531 

.5760 

* 464.7 

6.09 

,1467 

.1376 

624.4 

-.09 

.1589 

.5698 

* 465.8 

4.72 

• 1525 

.1433 

616.1 

-1.76 

.1646 

.5622 

* 460.3 

3.36 

• 1582 

.1490 

606.4 

-3.45 

.1703 

,5534 

• 472.3 

2.02 

.1640 

• 1548 

594.3 

-5.17 

.1761 

.5423 

• 477.9 

.75 

.1697 

.1605 

578.3 

-6.92 

.1819 

,5277 

♦ 485,3 

-.48 

.1754 

• 1662 

557.6 

-8.56 

.1876 

• 5088 

* 496.7 

-1.89 

.1812 

.1720 

531.8 

-10.05 

.1934 

.4053 

• 521,7 

-3.55 

.1869 

.1777 

499.1 

-11.58 

.1993 

.4554 

* 600.4 

-4.87 

.1926 

.1834 

0. 

-90.00 

.2054 

0. 

• 0. 

90.00 

.1984 




Figure 

A. 2.- Continued. 




W/WCR 

0 . 

.5552 

.5287 

.5057 

.4895 

.4789 

.4704 

.4651 

.4623 

.4587 

.4550 

.4502 

• 4460 

• 4426 
.4401 
.4379 
.4346 
.4327 
.4306 
.4287 
.4252 
.4246 
.4241 
.4240 
.4250 
.4273 
.4310 

• 4360 
.4428 
.4532 
.4760 
.5478 

0 . 



SURFACE VELOCITIES BASED ON TANGENTIAL COMPONENTS 
REDUCED WEIGHT FLOW 



BLADE 

SURFACE 1 


M 

VELOCITY 

ANGLE (DEG) 

W/WCR 

0. 

522.7 

90.00 

.4769 

• 3555E-02 

914.3 

54.65 

.8343 

• 7776F-02 

080.0 

51.28 

.8030 

• 1256E-0 1 

911.6 

47.67 

.0318 

• 1 0OOE-O 1 

919.0 

43.93 

.8393 

.2424E-01 

909.4 

39.79 

.8298 

• 31 52E-0 1 

879.6 

35.29 

.8026 

.4012E-01 

833.0 

30.94 

• 7600 

.5018E-01 

777.0 

27.36 

.7090 

.6197E-01 

743.7 

23.38 

.6786 

•7657E-0 l 

708.7 

18.53 

• 6466 

.9699E-01 

694.0 

12.11 

.6333 

.1779 

1096. 

-11.65 

1.000 



BLADE 

SURFACE 2 


M 

VELOCITY 

ANGLE (DEG) 

y/wcR 

• 2310E-02 

660.1 

45.89 

.6023 

. 7995E-02 

592.4 

43.18 

.5406 

.1426E-01 

560.6 

40.32 

.5115 

• 2122E-0 1 

538.8 

37.30 

.4916 

.2901E-01 

517.8 

34.00 

.4725 

. 3790E-0 1 

509.2 

30.44 

.4647 

• 481 IE-01 

502.4 

27.13 

.4585 

•5979E-01 

492.0 

24.03 

• 4496 

.7348E-01 

404.4 

20.42 

• 4420 

•9043E-01 

474.9 

16.11 

.4334 

.1143 

465.4 

10.25 

.4247 
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Continued 



BLADE SURFACE VELOCITIES FOR FULL WEIGHT FLOW 


450. 


0.000 


500. 


550. 


600. 


650. 


700. 


750. 


X 0 


1X0 


OX 


.050 


.100 


.ISO 


.200 

450. 


X ♦ 


500. 550. 600. 650. 


700. 


750. 


800. 

1 

1 

1 

1 

1 

1 

1 

1 4 

♦ l 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

l 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

800. 


850. 


900. 


950. 


850. 


900. 


950. 


VELOCITY (W) VS. MERIDIONAL STREAMLINE DISTANCE (M) DOWN THE PAGE 


- BLADE SURFACE 1* BASED ON MERIDIONAL COMPONENT 

- BLADE SURFACE 1. BASED ON TANGENTIAL COMPONENT 

- BLADE SURFACE 2» BASED ON MERIDIONAL COMPONENT 

- BLADE SURFACE 2t BASED ON TANGENTIAL COMPONENT 


VO 


Figure A.2.» Continued. 


0.000 


• 050 


• 100 


• 150 


.200 



BLADE SURFACE PRESSURES FOR FULL WEIGHT FLOW 


IM 

M 

M/M C 

P U ) /PT 

P (2) /PT 

CPT (1) 

CPT (2) 

24 

0. 

o. 

.9994 

.9994 

-.6204E-03 

-.6204E-03 

25 

.5732E-02 

.3125E-01 

.6760 

.8301 

-.3240 

-.1699 

26 

•1146E-01 

• 6250E -0 1 

.6507 

.8435 

-.3493 

-.1565 

27 

• 1 720E-01 

• 9375E-0 1 

.6432 

.8543 

-.3566 

-.1457 

28 

.2293E-01 

.1250 

.6479 

• B6 1 2 

-.3521 

-.1388 

29 

•2866E-01 

.1563 

.6631 

.8652 

-.3369 

-.1348 

30 

.3439E-01 

*1875 

.6850 

.8682 

-.3150 

-.1318 

31 

.4012F-01 

.2188 

.7074 

.0697 

-.2926 

-.1303 

32 

.4585E-01 

.2500 

.7239 

.8700 

-.2761 

-.1300 

33 

.5159E-01 

.2813 

.7365 

.8707 

-.2635 

-.1293 

34 

.5732E-01 

.3125 

. 7452 

.8714 

-.2548 

-.1286 

35 

.6305E-01 

.3438 

.7533 

.8725 

-.2 467 

-.1275 

36 

.6878E-01 

.3750 

.7587 

.8728 

-.2413 

-.1272 

37 

•7451E-01 

.4063 

.7631 

.8731 

-.2369 

-.1269 

38 

.8025E-01 

.4375 

.7677 

.8722 

-.2323 

-.1278 

39 

•8598E-01 

.4688 

.7696 

.0710 

-.2304 

-.1290 

40 

.9171E-01 

.5000 

.7712 

.0701 

-.2288 

-.1299 

41 

.9744E-01 

.5313 

.7736 

• 8689 

-.2264 

-.1311 

42 

.1032 

. 56?5 

.7755 

.8684 

-.2245 

-.1316 

43 

.1089 

.5938 

.7782 

.8683 

-.2216 

-.1317 

44 

• 1146 

.6250 

.7813 

.8693 

-.2187 

-.1307 

45 

.1204 

.6563 

.7846 

.8691 

-.2154 

-.1309 

46 

.1261 

.6875 

.7877 

.8687 

-.2123 

-.1313 

47 

.1318 

.7188 

. 7906 

.8677 

-.2094 

-.1323 

48 

*1376 

.7500 

.7933 

• 6660 

-.2067 

-.1340 

49 

.1433 

.7813 

,7961 

.6635 

-.2039 

-.1365 

50 

.1490 

.8125 

.7995 

.6602 

-.2005 

-.1398 

51 

*1 548 

• 8438 

.8039 

.8563 

-.1961 

-.1437 

52 

.1605 

.8750 

.8101 

.8516 

-.1899 

-%14B4 

53 

*1662 

.9063 

.6184 

.0453 

-.1816 

-.1547 

54 

.1720 

.9375 

.8289 

.0334 

-.1711 

-.1666 

55 

.1777 

.9688 

.8423 

*7961 

-.1577 

-.2039 

56 

• 1634 

1.000 

.9521 

*9521 

-.4780E-O1 

-.4708E-O1 


X ARRAY 


.968750 

,937500 

.906250 

.875000 

.843750 

.812500 

.781250 

.750000 

.710750 

.687500 

.656250 

.625000 

.593750 

.562500 

.531250 

.500000 

.468750 

.437500 

.406250 

.375000 

.343750 

.312500 

.281250 

.250000 

.218750 

.107500 

.156250 

*125000 

.093750 

.062500 

.031250 

.031250 

*062500 

.093750 

.125000 

.156250 

.187500 

.218750 

.250000 

•281250 

.312500 

.343750 

.375000 

.406250 

.437500 

.468750 

.500000 

.531250 

.562500 

.593750 

.625000 

.656250 

.687500 

.718750 

.750000 

.781250 

.012500 

.843750 

.875000 

.906250 

.937500 

.968750 




600.354 

521 .669 

496.727 

485.325 

477.073 

472.312 

468.339 

465.002 

464.706 

464.733 

465.289 

466.016 

469.834 

471.082 

474.222 

476.253 

479.069 

482.348 

485.093 

409.643 

493.390 

498. 68R 

502.725 

506.666 

509.703 




Figure 

A. 2.- Continued 


Y ARRAY 



515,508 

524.794 

536.506 

554.157 

579.455 

608.451 

871.598 

909.197 

918.981 

910.061 

884,702 

848.724 

811.096 

782.606 

760.025 

743.617 

727.894 

716.322 

705.924 

694.579 

687.479 

680.820 

672.815 

666.824 

660.302 

653.568 

646.379 

639.342 

632.094 

624.435 

616.098 

531.810 

606.446 

499.051 

594.286 

578.274 

557.598 


OUTPUT FROM OBJCON 


objective function oiffs 

s 

•91898E* 03 



wo 

= 

• 49945E *03 



DIFFS/WO 

s 

. 18400E*01 

CONSTRAINT 

1 

BLTKS 

s 

•66765E+00 

CONSTRAINT 

2 

YMAX 

H 

• 60845E* 03 



YM IN 

= 

.4647 1E+03 



DIFFP 

= 

. 1 3093E*0 1 

CONSTRAINT 

3 

WMB (MBO-2* 1 ) 

Z 

•53 1 8 1 E ♦ 03 



WMB (MBO-2* 2) 

= 

.52167E+03 



TECLSR 


• 1 2677E* 00 


Figure A. 2.- Continued. 
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# # • 
• 

• 

C 0 N M I N 

* • » 


• 

FORTRAN PROGRAM FOR 



• 

• 

• * * 

CONSTRAINED FUNCTION MINIMIZATION 

« • * 


CONSTRAINED FUNCTION MINIMIZATION 
CONTROL PARAMETERS 


IPRINT 

NDV 

ITMAX 

NCON 

NS IDE 

ICNDIR 

NSC AL 

NFDG 

5 

6 

1 

6 

1 

7 

-2 

0 

LINOBJ 

I TRM 

N1 

N2 

N3 

N4 

N5 


0 

3 

6 

Ift 

20 

20 

40 



CT CTMIN CTL CTLMIN 

-• 10000E*00 .40000E-02 -.10000E-01 .10000E-02 

theta phi delfun dabfun 

• lOOOOE^O 1 •50000E*0 1 .10000E-03 .16400E-02 

FDCH FDCHM ALPHAX ABOBJ1 

.10000E-01 .10000E-02 .10000E»00 .50000E-01 

LOWER BOUNDS ON DECISION VARIABLES <VLB> 

1> ”• lSOOOE^Ol •BOOOOE+OO .44444E+00 .33333E*00 .60000E*00 •60000E*00 

UPPER BOUNDS ON DECISION VARIABLES (VUB) 

l> 0. »24000E* 0 1 . 12222E + 01 .26667E*01 .20000E*01 .24000E*01 

SCALING VECTOR (SCAL) 

• 1 OOOE* 02 • 2500E* 00 .4500E*00 .1500E + 01 .5000E-01 .5000E-02 

ALL CONSTRAINTS ARE NON-LINEAR 


INITIAL FUNCTION INFORMATION 


OBJ = • 183990E+O1 


DFCISION VARIABLES (X-VECTOR) 

1 ) -. 10000E*02 • 25000E *00 

. 450 OOE ♦ 0 0 

.15000E*01 

.50000E-01 

•bOOOOE-02 

CONSTRAINT VALUES (G-VECTOR) 

1) - • 66 765E* 0 1 -.93323E+00 

- • 1 3093E + 02 

• • 1 B167E + 00 

*•1 1260E+O1 

-•87323E+00 


Figure A. 2.- Continued 



BEGIN ITERATION NUMBER 1 

CT = -• 10000E*00 CTL = -.lOOOOE-Ol PHI » .50000E*01 


INPUT FOR BLADE ELEMENT PROGRAM 


NO. 

BLADES 

INLET 

RADIUS 

(L) 

CONE 

angle 

(DEG) 

SOLIDITY 

INLET 

BLADE 

ANGLE 

(DEG) 

OUTLET 

BLADE 

ANGLE 

(DEG) 

TRANS. 

LOC, 

/CHORD 

MAX.TH. 

LOC. 

/CHORD 

IN/OUT 

TURNING 

RATE 

MAX. 

THICK. 

/CHORD 

L.E. 

RAD. 

/CHORD 

T.E. 

RAD. 

/CHORD 

34 

•45400 

6.66400 

2.25200 

52.000 

-9.9000 

.25000 

•45000 

1.50000 

•05000 

.00500 

.00500 


Figure A. 2.- Continued 



INPUT FOR TSONIC BLAOE-TO-BLADE FLOW SOLVER 


GAM 

AR 

TIP 

RHOIP 

WTFL 


OMEGA 

ORF 

1,400000 

1716.400 

599.7600 

• 3345860E-02 

•5700000E-02 

0. 

0. 

1.910000 

BETA! 

BETAO 

CHOROF 

STGRF 

FSMI 

FSMO 



40.20000 

0. 

.1033593 

.1315224 

0. 

0. 



REDFAC 

DENTOL 

SSM1 

SSM2 





1.000000 

. 1 OOOOOOE-02 ( 

). 

0. 





MB I MBO 

MM 

NBBI NBL 

NRSP MOPT 

LOPT LRVB 




24 56 

0 0 72 

15 34 

13 0 

1 0 




BLADE SURFACE 

1 — UPPER SURFACE 






RI1 

RO 1 

BETH 

BETOl 

SPLNOl 




.9668292E-03 

•966B292E-03 

57.63155 

-13.03405 

13.00000 




MSP 1 ARRAY 
.1502917E-03 

.5970272E-O2 

.1529266E-01 

.2743032E-01 

•4445239E-01 

•6270190E-01 

•8183494E-01 

•1016254 

.1210393 

.1422379 

.1505276 

•1726546 

.1826251 




THSP1 ARRAY 
.11 39973E-02 

.1957908E-01 

•4336726E-0I 

.6727171E-01 

•9180706E-01 

•1116533 

.1270053 

.1377225 

.1437220 

.1449023 

.1425966 

•1300689 

•1334640 




BLADE SURFACE 

2 — LOWER SURFACE 






R12 

RO? 

BET 1 2 

BET02 

SPLN02 




•9660292E-O3 

.9668292E-03 

46.20509 

-4.944609 

13.00000 




MSP2 ARRAY 
.1664031E-O2 

. 06604 14E-02 

.191 1275E-01 

.3100349E-O1 

•4891460E-01 

.6674475E-01 

•8519690E-01 

.1041455 

.1234617 

.1430141 

.1507367 

.1724944 

.1822947 




THSP2 ARRAY 








-.1473066E-02 

.1370572E-01 

.3337749E-01 

.5346616E-01 

•740683BE-O1 

•9285030E-01 

•1075148 

.1167910 

.1266333 

.1310207 

.1320445 

.1311376 

•1294676 




MR ARRAY 








-.1300000 

-.5000000E-02 

•5000000E-02 

•2003000E-01 

•4003000E-01 

.8003000E-01 

•1000300 

•1250300 

• 1500400 

.1752600 

•1852600 

•2250000 

•2700000 




RMSP ARRAY 
.4540000 

.4540000 

.4540000 

•4540000 

•4540000 

.4540000 

.4540000 

•4540000 

.4540000 

.4540000 

.4540000 

•4540000 

.4540000 




BESP ARRAY 
•5000000E-01 

.5000000E-01 

•4990000E-01 

•4960000E-01 

•4925000E-01 

.4850000E-01 

•4815000E-01 

•4770000E-01 

•4720000E-01 

.4675000E-01 

• 466 1 OOOE-O l 

•4661000E-01 

.4661000E-01 




PLOSS ARRAY 








0. 

0. 

•1500000E-02 

•5900000E-02 

.11 OOOOOE-O 1 

•2150000E-01 

• 3000000E-0 1 

•3350000E-01 

•4000000E-01 

.4700000E-01 

. 4800000E-0 1 

•4800000E-01 

•4800000E-0 1 




BLDAT AAN0K 

ERSOR STRFN SLCRD INTVL SURVL 





0 0 

ooo 

0 1 







Figure A. 2 


Continued 



RELATIVE 

MERIDIONAL 

CRITICAL 

REL. FLOW 

VELOCITY 

VELOClTr 

VELOCITY 

ANGLE 

AT H « FSMI 

AT M = FSMI 

AT M = FSMI 

AT UPSTREAM BDY • 

745.90 

497.17 

1095.9 

48.237 

AT M = FSMO 

AT M s FSMO 

AT M = FSMO 

AT DOWNSTREAM BDY 

499.44 

499.44 

1095.9 

0. 

FSMI a 0. 




FSMO * *10336 





CALCULATED PROGRAM 

CONSTANTS 



PITCH 

HT 

HM1 



•1047996 

•1231997E-01 .5729979E-02 



ITMIN 

ITMAX 




0 

25 




LAMBDA 

DOWNSTREAM WHIRL {RVTHO) 



252.4466 


0 . 



REDUCED WEIGHT 

FLOW « 

.5700000E-02 



NUMBER OF INTERIOR MESH 

POINTS = 1035 



CALCULATED VELOCITY 

diagram 

INFORMATION 




IM 

W 

W/WCR 

BETA 

UPSTREAM BOUNDARY 

1 

745.47 

• 66022 

48.237 

LEADING EDGE 

24 

745.90 

• 68061 

48.200 

TRAILING EDGE 

56 

499.44 

.45572 

0 . 

DOWNSTREAM BOUNDARY 

72 

500.06 

.45629 

0 . 


Figure A. 2.- Continued 



ITERATION NO. 1 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .3084 AT IM » 0* IT * 11* SURF » 1* M * .1786 

AVFRAGE RELATIVE CHANGE IN DENSITY AT BLAOE SURFACE POINTS = .1106 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS a 86 


ITERATION NO. ? 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .2718 AT IM a 0* IT * 11* SURF « 1. Me .1786 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .2915E-01 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS * 86 


ITERATION NO. 3 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS * .4543 AT IM =0* IT ■ 11* SURF *1* M « .1786 

AVERAGE RELATIVE CHANGE IN DENSITY aT BLADE SURFACE POINTS * .1308E-01 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS a 85 


ITERATION NO. * 4 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS a 3.728 AT IM * 0* IT » 11* SURF » 1. Mb .1786 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS * .4423E-01 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS * 53 

DENSTY CALL NO. 9 
NERU> = I 

RHO*W IS 1.2462 TIMES THE MAXIMUM VALUE FOR RhO*W 


ITERATION NO. 5 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .8621 AT IM * 0* IT « 11* SURF *1* M ■ .1786 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLAOE SURFACE POINTS « . 1063E-01 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS a 23 


ITERATION NO, 6 

MAXIMUM RELATIVE CHANGE IN OENSITY AT BLADE SURFACE POINTS = .3878 AT IM * 0* IT ■ II* SURF « 1, M » .1786 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .4736E-02 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS a 13 


ITERATION NO. 7 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS * 1.740 AT IM =0* IT » 11* SURF « 1* M a .1786 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .1951E-Q1 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS a 8 
DENSTY CALL NO. 9 
NER(l) = 2 

RHO*W IS 1.2487 TIMES THE MAXIMUM VALUE FOR RHO*W 


ITERATION NO. fl 
MAXIMUM RELATIVE CHANGE 
AVERAGE RELATIVE CHANGE 


IN DENSITY AT BLADE SURFACE POINTS 
IN DENSITY AT BLADE SURFACE POINTS 


.7370 AT IM B 0* IT * 11. SURF =1* M a .1786 

.8272E-02 


Figure A. 2.- Continued 



number of unconverged blade surface mesh points » 1 


ITERATION NO. 9 

maximum RELATIVE CHANGE IN density at BLADE SUHFACE POINTS = .3891 AT IM = Of IT = U, SURF * 1, Ms .1786 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS H .4369E-02 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS = 1 


ITERATION NO. 10 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SUHFACE POINTS = 1.757 AT IM * Of IT * 11, SURF « 1, M « ,1786 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .1955E-01 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS * 1 

DENSTY CALL NO. 9 
NER(l) * 3 

RHO*W IS 1.2486 TIMES THE MAXIMUM VALUE FOR RHO*W 


ITERATION NO. 11 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS * .7389 AT IM h Of IT « 11, SURF ■ 1, M « .1786 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS x .8235E-02 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS ■ 1 


VO 

VO 


Figure A. 2.- Continued 
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SURFACE 

VELOCITIES 

BASED ON MERIDIONAL COMPONENTS 

- REDUCED 

WEIGHT FLOW 




BLADE 

SURFACE 1 


• 

BLADE SURFACE 2 


M 

VELOCITY 

ANGLE (DEG) 

SURF. LENGTH 

W/WCR 

* VELOCITY 

ANGLE (DEG) 

SURF. LENGTH 

W/WCR 

0. 

0. 

90.00 

0. 

0. 

* 0. 

-90.00 

0. 

0. 

.5730E-02 

871.3 

52.88 

• 1 030E-0 1 

.7950 

* 600.9 

44.25 

• 6677E-02 

.5556 

•1146E-01 

909.0 

48.49 

.1935E-01 

.8294 

* 579.9 

41.59 

.1450E-Q1 

.5292 

.1719E-01 

918.8 

44.49 

• 2767E-0 1 

.8364 

* 554.6 

39.03 

• 2202E-0 1 

.5061 

•2292E-01 

910.0 

40.66 

.3545E-01 

.8304 

* 537.0 

36.59 

• 2927E-0 1 

.4900 

•2065E-O1 

804.7 

37.02 

.4281E-01 

.8073 

• 525.2 

34.17 

. 3630E-0 1 

.4793 

.3438E-01 

849.2 

33.73 

.4983E-01 

.7749 

* 516.0 

31.81 

.431 3E-0 l 

.4708 

.4011E-01 

811.3 

30.97 

•5661E-0 1 

.7402 

* 510.1 

29.67 

.4979E-01 

.4655 

.4504E-O1 

782.8 

20.85 

•6322E-01 

.7143 

* 507.1 

27.82 

•5633E-01 

.4627 

•5157E-01 

760.2 

26.93 

.6970E-01 

.6937 

* 503.1 

26.25 

.6276E-01 

.4591 

• 5730E-0 1 

743.9 

25.00 

• 7608E-0 1 

.6787 

* 499.1 

24.73 

• 691 IE-01 

• 4554 

.6303E-01 

728.1 

23.06 

•8235E-0 1 

.6644 

* 493.7 

23.21 

•7538E-01 

.4505 

.6876E-01 

716.5 

21.14 

•8853E-0 1 

.6538 

* 490.0 

21.70 

•8158E-0 1 

• 4471 

.7449E-01 

706.1 

19.25 

. 9464E-0 1 

.6443 

* 485.4 

20.20 

• 877 IE-01 

• 4429 

•8022E-01 

694.8 

17.40 

• 1007 

.6339 

• 482.6 

18.73 

.9379E-01 

.4404 

.0595E-O1 

687.6 

15.60 

• 1067 

.6274 

* 480.2 

17.28 

.9982E-01 

• 4382 

•9168E-0 1 

681.0 

13.81 

• 1126 

• 6214 

* 476.6 

15.85 

• 1058 

.4349 

.9741E-01 

672.9 

12.03 

.1185 

• 6140 

* 474.4 

14.43 

.1117 

.4329 

.1031 

666.9 

10.27 

• 1243 

.6085 

* 472.2 

13.02 

.1176 

• 4309 

• 1089 

660.5 

8.53 

.1301 

.6027 

* 470.0 

11.62 

.1235 

• 4288 

.1146 

653.6 

6.80 

• 1359 

.5964 

* 467.2 

10.24 

.1293 

• 4263 

• 1203 

646.5 

5.07 

.1416 

.5899 

• 465.4 

8.87 

• 1351 

.4247 

• 1261 

639.3 

3.37 

.1474 

.5834 

* 464.7 

7.52 

.1409 

• 4240 

• 1318 

632.2 

1.67 

.1531 

.5769 

• 464.8 

6. 16 

• 1467 

• 4241 

.1375 

624.6 

-.01 

.1589 

.5699 

• 465.9 

4.80 

.1525 

• 4252 

• 1432 

616.2 

-1.68 

• 1646 

.5623 

* 468.3 

3.43 

.1582 

.4273 

• 1490 

606.5 

-3.37 

.1703 

.5534 

* 472.3 

2.10 

.1639 

.4310 

.1547 

594.4 

-5.09 

.1761 

.5424 

* 477.9 

.83 

.1697 

.4361 

• 1604 

578.6 

-6.83 

.1818 

.5280 

* 485.2 

-.40 

.1754 

.4427 

• 1662 

558.0 

-8.47 

.1876 

.5091 

* 496.4 

-1.80 

.1811 

.4530 

.1719 

532.3 

-9.97 

.1934 

.4857 

♦ 521.3 

-3.46 

.1869 

.4757 

.1776 

499.8 

-11.49 

• 1992 

.4561 

* 598.6 

-4.77 

.1926 

• 5462 

• 1834 

0. 

-90.00 

.2053 

0. 

* 0. 

90.00 

• 1984 

0. 


Figure A. 2.- Continued. 
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SURFACE VELOCITIES BASED ON TANGENTIAL COMPONENTS 
REDUCED HEIGHT FLOW 


BLADE SURFACE 1 


M 

VELOCITY 

ANGLE (OEG) 

W/WCR 

I. 

522.3 

90.00 

.4766 

.3554E-02 

913.9 

54.66 

.0339 

.7774E-02 

079.7 

51.29 

.0027 

• 1255E-0 1 

911.4 

47.60 

.0316 

.1799E-01 

919.7 

43.95 

.0392 

.2423E-01 

909.4 

39.81 

.0290 

.3150E-01 

079.6 

35.33 

.8027 

•4009E-0I 

833.0 

30.98 

.7601 

.5013E-01 

777.3 

27.41 

.7092 

•6109E-O1 

744.0 

23.44 

.6700 

.7644E-01 

708.7 

18.62 

.6467 

.9671E-01 

693.5 

12.25 

.6328 

.1786 

1096. 

"11.78 

1.000 


BLADE 

SURFACE 2 


M 

VELOCITY 

ANGLE (DEG) 

W/WCR 

.2310E-02 

660.6 

45.89 

.6028 

•7994E-02 

592.9 

43.18 

.5410 

• 1 426E-01 

561.1 

40.33 

.5120 

.2121E-01 

539.3 

37.31 

.4921 

.2900E-01 

510.3 

34.02 

.4729 

•3708E-O1 

509.7 

30.47 

• 4651 

•4B07E-01 

502.6 

27.10 

• 4500 

•5973E-0 1 

493.1 

24.00 

.4499 

.7337E-01 

404.7 

20.49 

.4423 

•9024E-01 

475.2 

16.21 

.4336 

• 1139 

466.1 

10.41 

.4253 


Figure A. 2.- Continued. 
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BLADE SURFACE VELOCITIES TOR FULL WEIGHT FLOW 


450 • 


500. 


550. 


600. 650 • 


700. 


750. 


600. 


850. 900. 


950. 


0.000 


.050 


.100 


.150 


• ?00 
450. 


OX 


X 0 


xo 


500. 550. 600. 650. 700. 750. 800 

VELOC I TY ( W) VS. MERIDIONAL STREAMLINE DISTANCE (M 


BLADE SURFACE 1. BASED ON MERID 
BLADE SURFACE 1. BASED ON TANGENTIAL COMPONENT 


850. 90 

DOWN THE PAGE 
ONAL COMPONENT 


950. 


BLADE SURFACE 2. BASED ON MERID 


ONAL COMPONENT 


BLADE SURFACE 2» BASED ON TANGENTIAL COMPONENT 


0.000 


.050 


• 100 


• 150 


• 200 


Figure A. 2.- Continued 
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BLADE SURFACE PRESSURES FOR FULL WEIGHT FLOW 


IM 

H 

M/HC 


P42J4PI 

Will 

CPTC2) 

24 

0* 

0. 

.9994 

.9994 

-.6204E-03 

-.6204E-03 

25 

•5730E-02 

•3125E-01 

.6762 

.8298 

-.3238 

-.1702 

26 

•ll46E-nl 

.6250E-01 

.6509 

• 0432 

-.3491 

-.1560 

27 

• l 719E-01 

.9375E-M 

.6433 

.0541 

-.3567 

-.1459 

28 

.2292E-01 

• 1250 

.6479 

• 0610 

-.3521 

-.1390 

29 

•2865E-0 1 

.1563 

.6631 

• 8650 

-.3369 

-.1350 

30 

•343BE-01 

.1075 

.6047 

.0680 

-.3153 

-.1320 

3) 

.4011E-01 

• 2180 

.7073 

.8695 

-.2927 

-.1305 

32 

•4504E-O1 

.2500 

• 7230 

• 0699 

-.2762 

-.1301 

33 

•5157E-0 1 

.2813 

.7363 

• 0706 

-.2637 

-.1294 

34 

.5730E-01 

• 3125 

.7450 

• 8713 

-.2550 

-.1287 

35 

.6303E-01 

• 3430 

.7531 

.8724 

-.2469 

-.1276 

36 

•6076E-O1 

.3750 

.7505 

.0726 

-.2415 

-.1274 

37 

•7449E-0 1 

.4063 

.7630 

.0729 

-.2370 

-.1271 

38 

•8022E-01 

.4375 

.7676 

.8721 

-.2324 

-.1279 

39 

•B595E-01 

• 4600 

.7695 

• 0708 

-.2305 

-.1292 

40 

.9160E-O1 

.5000' 

.7711 

.8700 

-.2209 

-.1300 

41 

•9741E-01 

.5313 

.7736 

.0600 

-.2264 

-•1312 

42 

.1031 

• 5625 

.7755 

• 8602 

-.2245 

-.1310 

43 

• 1009 

.5930 

.7701 

• 0602 

-.2219 

-.1316 

44 

.1146 

• 6250 

.7013 

.0600 

-.2187 

-.1312 

45 

.1203 

• 6563 

.7845 

• 0691 

-.2155 

-.1309 

46 

• 1261 

• 6875 

.7077 

• 0607 

-.2123 

-.1313 

47 

.1318 

• 7180 

.7905 

.0677 

-.2095 

-.1323 

48 

.1375 

• 7500 

.7932 

.0660 

-.2060 

-.1340 

49 

.1432 

.7013 

.7961 

.0635 

-.2039 

-.1365 

50 

• 1490 

• 8125 

.7995 

• 0603 

-.2005 

-.1397 

51 

.1547 

.0438 

.8038 

• 0563 

-.1962 

-.1437 

52 

.1604 

.0750 

.0099 

.8516 

-.1901 

-.1404 

53 

• 1662 

• 9062 

.0182 

• 0455 

-.1010 

-.1545 

54 

.1719 

.9375 

.0207 

.0336 

-.1713 

-.1664 

55 

.1776 

• 9608 

.0420 

.7969 

-.1500 

-.2031 

56 

• 1034 

1.000 

.9521 

• 9521 

-.4708E-01 

-•4700E-O1 


X array 

.960750 

.937500 

.906250 

•875000 

.043750 

.012500 

.781250 

.750000 

.718750 

.687500 

.656250 

.625000 

.593750 

.562500 

.531250 

•500000 

.460750 

.437500 

.406250 

.375000 

.343750 

•312500 

.201250 

•250000 

.210750 

.107500 

.156250 

.125000 

.093750 

•062500 

.031250 

.031250 

•062500 

.093750 

.125000 

.156250 

•107500 

.210750 

•250000 

.281250 

.312500 

.343750 

.375000 

.406250 

.437500 

.460750 

•500000 

.531250 

•562500 

.593750 

•625000 

.656250 

.607500 

.718750 

.750000 

.701250 

.937500 

•012500 

.960750 

•843750 

.075000 

•906250 

Y ARRAY 

590.622 

521.326 

496.430 

405.191 

477.092 

472.296 

460.296 

465.933 

464.026 

464.715 

465.422 

467.225 

469.907 

472.202 

474.379 

476.622 

480.225 

402.606 

405.388 

409.992 

493.694 

499.052 

503.092 

507.060 

510.120 


Figure A. 2.- Continued. 
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515.956 

525.246 

536.981 

554.624 

579.933 

608,917 

871.309 

908.906 

918.846 

910.016 

884.741 

849.202 

811.259 

782.794 

760.231 

743.055 

728.095 

716.532 

706.124 

694.759 

687.633 

680.982 

672.940 

666.912 

660.502 

653.560 

646.538 

639.326 

632.201 

624.598 

616.196 

532,289 

606.488 

499.834 

594.393 

578.629 

557.971 


OUTPUT FROM OBJCON 


OBJECTIVE FUNCTION OIFfS 

* 

•91605E+O3 



wo [i 

3 

•49944E+03 



OIrFS/WO 

3 

. 18398E+01 

CONSTRAINT 

1 

BLTKS 

X 

.66766E+00 

CONSTRAINT 

2 

YMAX 

a 

•60892E+03 



YMIN 

X 

•46472E+03 



DIFFP 

X 

• 13103E+01 

CONSTRAINT 

3 

WMB (MB0-2« 1 ) 

3 

•53229E*03 



WMB { MBO-2 • 2 ) 

X 

•52133E+03 



TECLSR 

X 

. 13704E*00 


Figure A. 2.- Continued 
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FINAL OPTIMIZATION INFORMATION 


OBJ = .170765E*01 

DECISION VARIABLES (X-VECTOR) 

1) - • 93094E + 0 1 • 29650E + 00 .55000E*00 .95806E*00 .32891E-01 .51525E-02 

CONSTRAINT VALUES (G-VECTOR) 

1) -•28002E+01 -.97200E*00 -,14455E*02 -.96575E-01 -.15965E*01 -.40346E+Q0 

THERE ARE 1 ACTIVE CONSTRAINTS 

CONSTRAINT NUMBERS ARE 

4 

THERE ARE 0 VIOLATED CONSTRAINTS 

THERE ARE 1 ACTIVE SIDE CONSTRAINTS 

OECISION VARIABLES AT LOWER OR UPPER BOUNDS (MINUS INDICATES LOWER BOUND) 

3 

TERMINATION CRITERION 
ITER EQUALS I TMAX 

NUMBER OF ITERATIONS * 1 

OBJECTIVE FUNCTION WAS EVALUATED 12 TIMES 

CONSTRAINT FUNCTIONS WERE EVALUATED 12 TIMES 


Figure A. 2.- Continued 
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OPTIMIZATION results 


OBJECTIVE FUNCTION 


GLOBAL 

LOCATION 

l FUNCTION VALUE 

. 17077E+ 0 1 


DESIGN 

VARIABLES 






D. V. 

GLOBAL 

LOWER 


UPPER 

ID 

NO. 

VAR. NO. 

BOUND 

VALUE 

BOUND 

1 

1 

2 

-.15000E*02 

- • 93094E*0 1 

0. 

2 

2 

3 

•20000E*00 

•29650E*00 

. 60000E*00 

3 

3 

4 

• 20000E* 00 

•55000E+00 

.SSOOOE^OO 

4 

4 

5 

•S0000E+00 

• 95806E*00 

•40000E*01 

5 

5 

6 

•30000E-0! 

• 32091E-O 1 

• 1 0000E*O0 

6 

6 

7 

•30000E-02 

•51525E-02 

•12000E-0I 


DESIGN 

CONSTRAINTS 





GLOBAL 

LOWER 


UPPER 

ID 

VAR. NO. 

BOUND 

VALUE 

BOUND 

1 

B 

0 . 

.28002£*00 

• 1 OOOOE *-02 

3 

9 

0 . 

• 1 44S5E*0 1 

• 1 6000E + 0 1 

5 

10 

10000E+01 

.59654E*00 

• 10000E+01 


Figure A. 2.- Continued 
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*•• INPUT FOR BLADE ELEMENT PROGRAM ••• 


NO. 

BLADES 

inlet 

RADIUS 

(L) 

CONE 

angle 

(DEG) 

SOLIDITY 

INLET 
BLADE 
ANGLE 
< DEG ) 

OUTLET 

BLADE 

ANGLE 

(DEG) 

TRANS. 

LOC. 

/Chord 

MAX.TH. 

LOC. 

/chord 

IN/OUT 

TURNING 

RATE 

max. 

THICK. 

/chord 

L.E. 

RAD. 

/Chord 

T .E. 
RAD. 
/CHORD 

34 

.45400 

6.66400 

2.25200 

52.000 

-9.3094 

.29650 

.55000 

•95806 

.03289 

• 00515 

•00500 


Figure A. 2.- Continued 
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INPUT FOR TSONIC BLADE -TO- BLADE FLOW SOLVER 


GAM 

AR 

TIP 

RH01P 

1.400000 

1716.480 

599.7600 

.3345860E-02 

BETAI 

BETAO 

CHORDF 

STGRF 

48. 20000 

0. 

.1795132 

.1534563 

REDFAC 

DENTOL 

SSM1 

SSM2 

1.000000 

• 1 OOOOO0E-O2 

0. 

0. 

MBI MBO 

MM 

NBBI NBL 

NRSP MOPT 

24 56 

0 0 72 

15 34 

13 0 

BLADE SURFACE 

1 — UPPER SURFACE 


RI1 

RO 1 

BETTI 

BETOl 

.9958413E-03 

.9663591E-03 

53.17187 

-11.06885 

MSP 1 ARRAY 

• 1 98824 IE-03 

.6491482E-02 

• 15966 1 5E- 0 1 

.2768746E-01 

.1181776 

.1383991 

.1546368 

.1607631 

THSP1 ARRAY 

•1314862E-02 

.1885167E-01 

•421 2224E-0 1 

.6675356E-01 

.1595550 

.1632900 

.1625744 

.1592733 

blade SURFACE 

2 — LOWER SURFACE 


RI2 

R02 

BET 1 2 

BET02 

•99584 1 3E-03 

.9663591E-03 

50.01841 

-5.477123 

MSP2 ARRAY 

• 1 767R66E-02 

.8225905E-O2 

.1791505E-01 

•29851 14E-01 

.1192385 

.13B0764 

.1547094 

.1685705 

THSP2 ARRAY 

-.1385046E-02 

.1513937E-01 

. 3691 847E-0 1 

.5973983E-01 

.1471895 

.1526932 

.1541361 

.1532488 

MR ARRAY 

-.1300000 

-.5000000E-02 

•5000000E-02 

•2003000E-01 

•1500400 

.1752600 

.1852600 

.2250000 

RMSP ARRAY 

•4540000 

.4540000 

.4540000 

.4540000 

.4540000 

•4540000 

.4540000 

.4540000 

BESP ARRAY 

•5000000E-01 

.5000000E-01 

.4990000E-01 

. 496000 OE-0 1 

.4720000E-01 

.4675000E-01 

. 466 1 OOOE-0 1 

•4661000E-01 

PLOSS ARRAY 

0. 

0. 

. 1500000E-02 

.5900000E-02 

•4000000E-01 

.4700000E-01 

. 40000 OOE-0 1 

.4800000E-01 

BLOAT AANDK 

ER50R STRFN SLCRD INTVL SURVL 

0 0 

ooo 

0 1 



WTFL 

* 57 00 000E-02 
FSMI 

0 . 

0. 

FSMO 

0 . 

OMEGA 

0. 

ORF 

1.910000 

LOPT LRVB 

1 0 




SPLNOl 

13.00000 




• 4356364E-0 1 
.1787495 

•6073413E-01 

•7906837E-01 

• 9B30693E-0 1 

•9436997E-01 
. 1554091 

.1170990 

.1367454 

.1506814 

SPLN02 

13.00000 




.4593955E-01 

.1784377 

•6312073E-01 

.01 17985E-01 

•9994522E-01 

•8493909E-0 1 
.1513964 

•1063403 

.1239432 

•1375884 

•4003000E-01 

.2700000 

. 8003000E-01 

.1000300 

•1250300 

.4540000 

.4540000 

•4540000 

.4540000 

.4540000 

.4925000E-01 
. 466 1 OOOE-0 1 

.4850000E-01 

.4015OOOE-O1 

.4770000E-01 

. 1 1 OOOOOE-0 1 
• 4800000E-01 

•2150000E-01 

•3000000E-01 

•3350000E-01 
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RELATIVE 
VELOCITY 
AT M = FSMI 
745.90 
AT M = FSMO 
498.55 


MERIDIONAL 

velocity 

AT M = FSMI 
497.17 
AT M = FSMO 
498.55 


CRITICAL 
VELOCITY 
AT M = FSMI 
1095.9 
AT M = FSMO 
1095.9 


REL. FLO* 

ANGLE 

AT UPSTREAM BDY. 
48.257 

AT DOWNSTREAM BDY. 

0 . 


FSMI = 0. 

FSMO * .17951 


CALCULATED PROGRAM CONSTANTS 

PITCH HT HMl 

.1847996 .1231997E-01 .5609788E-02 

ITHIN ITMAX 

0 27 

LAMBDA DOWNSTREAM WHIRL IRVTHO) 

252.4466 0. 

REDUCED WEIGHT FLOW = .5700000E-02 

NUMBER OF INTERIOR MESH POINTS = 1046 

CALCULATED VELOCITY DIAGRAM INFORMATION 



IM 

W 

W/WCR 

BETA 

UPSTREAM BOUNDARY 

1 

745.23 

.66000 

48.257 

LEADING EDGE 

24 

745.90 

•68061 

48.200 

TRAILING edge 

56 

490.55 

.45491 

0 . 

DOWNSTREAM BOUNDARY 

72 

499.77 

.45602 

0 . 


Figure A. 2.- Continued. 
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ITERATION NO. 1 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .1037 AT IM =0* IT = 4, SURF =1, M * .1918E-01 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .10*5 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS □ 90 


ITERATION NO. ? 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS □ .7501E-01 AT IM =0* IT = 1* SURF * 1, Ms .4069E-02 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .2483E-01 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS . * 90 


ITERATION NO. 3 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .3724E-01 AT IM = 0* IT = 1. SURF * 1, M ■ .4Q69E-02 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .7438E-02 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS = 09 


ITERATION NO. * 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .1933E-01 AT IM =0* IT ■ 1, SURF =1* M « .4069E-02 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS H .2531E-02 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS = 49 


ITERATION NO. 5 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .1019E-01 AT IM =0* IT = 1, SURF » \ 9 M ■ •4069E-02 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS * .9376E-03 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS ■ 22 


ITERATION NO. 6 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .5275E-02 AT IM a 0* IT = 1. SURF « 1* Ha .4069E-02 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS * .3679E-03 
NUMBER OF UNCONVERGFD BLADE SURFACE MESH POINTS = 14 


ITERATION NO. 7 

MAXIMUM RELATIVE CHANGE IN OENSITY AT BLADE SURFACE POINTS = .3104E-02 AT IM =0* IT = 1. SURF *1* M * .4069E-02 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS a .1662E-03 
NUM8ER OF UNCONVERGED BLADE SURFACE MESH POINTS = 1 


ITERATION NO. 8 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .1306F-02 AT IM a Q, IT = 1. SURF * 1* M « .4069E-02 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .5430E-04 
NUMBER OF UNCONVERGED 8LADE SURFACE MESH POINTS H 1 


ITERATION NO. 9 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .6819E-03 AT IM =0* IT = 1, SURF =1* M = .4069E-02 


Figure A. 2.- Continued 
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AVEHAGt RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .2643E-0A 

NUMBER OF UNCONVERGFD BLADE SURFACE MESH POINTS * 0 


ITERATION NO. 10 

MAXIMUM RELATIVF CHANGE IN DENSITY AT BLADE SURFACE POINTS = .3130E-O3 AT IM = Ot IT = I* SURF * I, Ms .4069E-02 

AVERAGE RELATIVF CHANGE IN DENSITY AT BLADE SURFACE POINTS s .21Q2E-04 
NUMBER OF UNCONVERGFD BLADE SURFACE MESH POINTS = 0 


Figure A. 2.- Continued 
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SURFACE VELOCITIES BASED ON MERIDIONAL COMPONENTS - REDUCED WEIGHT FLOW 




BLADE 

SURFACE l 


• 


blade 

SURFACE 2 


M 

VELOCITY 

ANGLE (DEG) 

SURF. LENGTH 

W/WCR 

* 

velocity 

ANGLE (DEG) 

SURF, LENGTH 

W/WCR 

0. 

0. 

90.00 

0. 

0 . 

• 

0 . 

-90.00 

0. 

0. 

•561 0E-02 

836.7 

50.59 

•9360E-02 

.7635 

« 

632.9 

40.96 

.6851E-02 

.5775 

• 1 122E-01 

048.1 

40.08 

.1797E-01 

.7739 

• 

599.0 

46.37 

. 1518E-01 

.5466 

• 1683E-01 

851.3 

45.66 

.261BE-01 

.7760 

• 

564.0 

43.89 

.2313E-0 l 

.5147 

•2244E-D1 

046.? 

43.35 

.3404E-01 

.7721 

• 

540.8 

41.52 

• 3077E-0 1 

.4935 

• 2805E-0 1 

834.5 

41.16 

• 4 162E-0 1 

.7615 

ft 

522.7 

39.21 

.38 13E-0 1 

.4769 

• 3366E-0 1 

020.3 

39.02 

•4895E-Q 1 

.7485 

« 

508.1 

36.98 

.4526E-01 

.4636 

.3927E-0I 

005.2 

36.85 

•5607E-0 1 

.7347 

• 

496.1 

34.03 

•5218E-0 l 

.4527 

.4488E-01 

708.7 

34.60 

•6290E-O 1 

.7197 

• 

487.9 

32.77 

.5B93E-01 

• 4452 

•5049E-01 

770.7 

32.50 

•6972E-01 

.7032 

• 

479.5 

30.82 

.6553E-01 

.4375 

.5610E-01 

754.2 

30.30 

• 7629E-0 1 

• 6882 

• 

473.5 

28.92 

* 7200E-01 

• 4320 

•6171E-01 

739.3 

20.11 

• 8272E-0 1 

.6745 

« 

467.1 

27.10 

.7835E-01 

• 4263 

.6732E-01 

723.5 

25.94 

.8901E-01 

• 6602 

• 

462.5 

25.34 

*846 IE-01 

• 4220 

•7293E-01 

710.8 

23.83 

•9520E-01 

• 6486 

* 

457.2 

23.59 

• 9077E-0 1 

.4172 

• 7854E-01 

697.6 

21.70 

.1013 

.6365 

• 

453.8 

21.07 

.9605E-O1 

.4141 

•8415E-01 

688.8 

19.70 

.1073 

• 6285 

« 

449.7 

20.17 

.1029 

• 4104 

•8976E-01 

680.9 

17.80 

.1132 

.6213 

• 

447.5 

18.48 

.1008 

.4083 

.9537E-01 

671.6 

15.84 

• 1191 

• 6126 

« 

445.6 

16.82 

.1147 

• 4066 

.1010 

665.3 

13.91 

.1249 

.6070 

• 

442.6 

15.19 

.1205 

.4039 

• 1066 

658.7 

12.00 

• 1306 

.6011 

• 

441.0 

13.57 

,1263 

• 4024 

.1122 

652.0 

10.10 

.1363 

.5949 

• 

439.8 

11.97 

.1321 

.4013 

.1178 

645.0 

8.23 

.1420 

.5805 

• 

439.2 

10.39 

.1378 

.4007 

.1234 

635.7 

6.38 

.1477 

.5801 

* 

437.8 

8.82 

.1435 

.3995 

.1290 

629.3 

4.54 

.1533 

.5742 

« 

438.7 

7.25 

.1491 

• 4003 

.1346 

' 622.6 

2.71 

.1589 

.5681 

• 

440.7 

5.69 

.1548 

.4021 

• 1402 

► 615.5 

.90 

• 1646 

.5616 

• 

444.0 

4.12 

.1604 

.4052 

.1459 

► 607.4 

-.92 

.1702 

.5542 

• 

449.0 

2.60 

.1660 

.4097 

.1515 

► 597.2 

-2.76 

.1758 

.5450 

• 

455.5 

1.13 

.1717 

• 4156 

.1571 

► 584.1 

-4.61 

• 1814 

• 5330 


463.5 

-.29 

.1773 

.4230 

.1627 

► 567.1 

-6.38 

.1870 

.5175 

* 

475.4 

-1.92 

.1829 

.4330 

• 1683 

► 540.2 

-8.06 

.1927 

.5003 

• 

500.5 

-3.80 

.1885 

.4567 

• \739 

» 533.5 

-9.68 

.1984 

. 4868 

* 

585.9 

-5.24 

.1941 

.5347 

• 1795 

► 0 . 

-90.00 

.2043 

0. 

• 

0 . 

90.00 

.1998 

0. 
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SURFACE VELOCITIES RASED ON TANGENTIAL COMPONENTS 
REDUCED WEIGHT FLOW 


BLADE. SURFACE 1 


M 

VELOCITY 

ANGLE (DEG) 

W/WCR 


53R.5 

90.00 

.4913 

4069E-02 

923.1 

51.31 

.8423 

8721E-02 

838.6 

49.19 

.7652 

1374E-01 

850.8 

46.98 

.7763 

1 918E-01 

851.5 

44.69 

.7770 

2507E-01 

844.3 

42.31 

.7704 

3 1 49E-0 1 

831.4 

39.85 

.7587 

3852E-01 

815.4 

37.15 

.7440 

4631E-01 

787.7 

34.13 

.7188 

551 2E-0 1 

768.0 

30.68 

.7008 

6534E-01 

738.9 

26.70 

.6742 

i7768E"01 

713.0 

22.08 

.6506 

9369E-01 

687.7 

16.42 

.6275 

1202 

656.6 

7.45 

.5992 

,1658 

603.2 

-7.33 

.5504 


BLADE 

SURFACE 2 


H 

VELOCITY 

ANGLE (DEG) 

W/WCR 

2283E-02 

729.0 

50.57 

.6652 

7074E-02 

624.6 

48.27 

.5700 

1227E-01 

581.7 

45.90 

.5308 

, 1 793E-01 

552.8 

43.42 

.5044 

, 2412E-0 1 

530.1 

40.82 

.4837 

3092E-01 

511.6 

38.06 

• 4669 

3845E-0 1 

496.7 

35.13 

.4532 

4608E-Q1 

481.2 

32.07 

.4390 

-5639E-01 

467.9 

28.82 

.4270 

,6734E-01 

456.7 

25.33 

.4167 

,8031E“0 1 

447.8 

21.33 

. 40B6 

•9666E-01 

438.6 

16.44 

.4003 

.1210 

432.7 

9.51 

.3948 


Figure A. 2 
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435 

0.000 


405 . 


535. 


BLADE SURFACE VELOCITIES FOR FULL WEIGHT FLOW 
585. 635. 685. 735. 785. 035. 


885. 


935. 


.050 


.100 


.150 


.200 

435 


485. 




1 


— 

0 1 



1 

1 
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1 
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1 * 
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01 
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1 # 
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I 
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1 

1 

1 

1 

1 


l ♦ 
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1 
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1 
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1 

l 

1 

1 
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1 

1 
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♦ 

1 

1 

1 

1 
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♦ 

1 
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l 

1 

1 

I ♦ 


1 

1 

l 
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1 

1 
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l 

i 

1 

l 
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i 
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1 

1 

i ♦ 
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i 

l 
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1 

1 

l 
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1 
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l 

i 

l 

l 

i 

l 

1 
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535. 

585. 

635. 

685. 


735. 

785. 

835. 


VELOCITY(W) 

VS. MERIDIONAL STREAMLINE DISTANCE(M) DOWN THE PAGt 



• - BLADE 

SURFACE 

If 

BASED ON 

MERIDIONAL 

COMPONENT 



• - BLADE 

SURFACE 

If 

BASED ON 

TANGENTIAL 

COMPONENT 



X - BLADE 

SURFACE 

2f 

BASED ON 

MERIDIONAL 

COMPONENT 



0 - BLADE 

SURFACE 

2f 

BASED ON 

TANGENTIAL 

COMPONENT 


0.000 


.050 


.100 


.150 


885. 


935. 


.200 
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BLADE SURFACE PRESSURES FOR FULL WEIGHT FLOW 


IM 

M 

M/MC 

PUJ/PT 

P (2) /PT 

CPT ( 1 ) 

CPT (2) 

24 

0. 

n. 

.9994 

.9994 

-.6204E-03 

-.6204E-03 

25 

.5610F-02 

• 31 25E-0 1 

.6981 

.8173 

-.3019 

-.1027 

26 

.1122F-nl 

.6250E-01 

.6899 

.8337 

-.3101 

-.1663 

27 

.1683F-01 

.9375E-01 

.6867 

.8496 

-.3133 

-.1504 

2B 

.2244E-01 

.1250 

.6887 

.8593 

-.3113 

-.1407 

29 

• 2805E-0 1 

.1563 

.6949 

.8663 

-.3051 

-.1337 

30 

• 3366F-0 1 

.1875 

.7028 

.8717 

-.2972 

-.1203 

31 

.3927E-01 

.2188 

.7111 

.8759 

-.2889 

-.1241 

32 

,4488E-ni 

.2500 

. 7203 

.8784 

-.2797 

-.1216 

33 

• 5049E-0 1 

.2813 

. 7303 

.8810 

-.2697 

-.1190 

34 

.5610E-01 

.3125 

. 7392 

.8825 

-.2608 

-.1175 

35 

.6171E-01 

.3438 

.7469 

.8039 

-.2531 

-.1161 

36 

•6732E-0 1 

.3750 

.7549 

.0845 

-.2451 

-.1155 

37 

• 7293F-0 1 

.4063 

.7608 

.8851 

-.2392 

-.1149 

38 

• 7854E-0 1 

.4375 

.7666 

• 8846 

-.2334 

-.1154 

39 

.8415E-01 

.4688 

.7695 

• 0040 

-.2305 

-.1160 

40 

.8976E-01 

.5000 

.7718 

.0026 

-.2202 

-.1174 

41 

• 9537E-0 1 

.5313 

.7749 

.8011 

-.2251 

-.1189 

42 

.1010 

.5625 

.7768 

.8006 

-.2232 

-.1194 

43 

.1066 

.5938 

.7793 

.8001 

-.2207 

-.1199 

44 

.1122 

.6250 

.7823 

.8799 

-.2177 

-.1201 

45 

.1178 

.6563 

.7855 

.8797 

-.2145 

-.1203 

46 

.1234 

.6875 

.7899 

.0797 

-.2101 

-.1203 

47 

.1290 

.7188 

.7925 

.8785 

-.2075 

-.1215 

48 

.1346 

.7500 

.7949 

• 8766 

-.2051 

-.1234 

49 

.1402 

.7813 

.7972 

.8740 

-.2028 

-.1260 

50 

.1459 

.8125 

.7999 

.8705 

-.2001 

-.1295 

51 

.1515 

.8437 

.8033 

.8663 

-.1967 

-.1337 

52 

.1571 

.8750 

.8082 

.0614 

-.1918 

-.1386 

53 

.1627 

.9062 

.8148 

.8551 

-.1852 

-.1449 

54 

• 1683 

.9375 

.8222 

.0433 

-.1770 

-.1567 

55 

.1739 

.9687 

.8278 

.8035 

-.1722 

-.1965 

56 

.1795 

1.000 

.9525 

.9525 

-.475SE-01 

-• 4755E-0 1 


Figure A. 2.- Continued. 
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RESULTS OF COMPUTATIONS ON BASE SOLUTION: 


MACH NUMBER* 

VALUES OF PERTURBATION PARAMETERS* 
CRITICAL VALUE OF WM: 


MO * 

.1000 


QO ( 1 ) 

* -9.3094 

( kocr 

QO (2) 

* .2965 

( T 

00(3) 

* .5500 

( ZM 

00(4) 

* .9581 

( P 

00(5) 

= .0329 

( TMX 

QO (6) 

* .0052 

( THLE 

WMCRIT *-66.8587 



...LOCATIONS OF MIN.* MAX.* AND CRITICAL PTS. 
(* DENOTES POINT ON LOWER SURFACE) 

MINIMUM AT X * .6875* (POINT NO. 10) 

MAXIMUM AT X * .0937 (POINT NO. 34) 


...LOCATION OF FIXED POINTS 
(• DENOTES POINT ON LOWER SURFACE) 

XFIX(1) = 1.0000* 

XFIX (2) * .0937 

XFIX (3) * 1.0000 


X ARRAY 


Y ARRAY 


.968750 

.812500 

.656250 

•500000 

.343750 

.187500 

.031250 

•156250 

•312500 

.468750 

.625000 

.781250 

.937500 


585.946 

448.954 


.937500 

.781250 

•625000 

.468750 

•312500 

.156250 

•031250 

.187500 

.343750 

•500000 

.656250 

.612500 

.968750 


500.526 

444.034 


•906250 

•750000 

.593750 

.437500 

.281250 

•125000 

•062500 

•218750 

•375000 

.531250 

.687500 

.843750 


475.38a 

440.692 


.875000 

.718750 

.562500 

•406250 

•250000 

•093750 

•093750 

•250000 

•406250 

•562500 

.718750 

.875000 


463.538 

438.692 


.843750 

•687500 

.531250 

•375000 

.218750 

•062500 

•125000 

•281250 

.437500 

.593750 

•750000 

.906250 


455.453 

437.817 


Figure A. 2.- Continued 
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439,170 

439.833 

441.032 

442.598 

445.557 

447.463 

449.745 

453.791 

457.230 

462.531 

467.147 

473.460 

479.521 

487.914 

496.105 

508, 1 06 

522.699 

540.850 

564.034 

599.017 

632.856 

836.747 

848.134 

851.345 

846.151 

834.503 

820.300 

805.229 

780.747 

770.703 

754.190 

739.256 

723.486 

710.818 

697,563 

688.798 

680.850 

671 .634 

665.267 

658.725 

651.996 

644.996 

635.734 

629.278 

622.630 

615.503 

548.249 

607.355 

533.506 

597.245 

584.097 

567.118 


OUTPUT FROM OBJCON 


OBJECTIVE FUNCTION DIFFS 

s 

•851 35E+03 



WO 

* 

•49B55E*03 



OIFFS/WO 

m 

• 17077E*01 

CONSTRAINT 

1 

BLTKS 

% 

•2B002E»00 

CONSTRAINT 

2 

YMAX 

s 

• 632B6E-* 03 



YHIN 

* 

•437B2E*03 



diffp 

X 

. 14455E + 01 

CONSTRAINT 

3 

WMB (MBO-2* 1 ) 

U 

•54825E*03 



WMB (M0O-2 * 2) 

X 

•50053E*03 



teclsr 

X 

• 59654E + 00 


Figure A.2.- 


Continued . 



UNIT PERTURBATION OF WM AND UNIT STRAINING OF XBASE 
FOR CALIBRATION SOLUTIONS 1 THROUGH 5 




• 1ST CALB 

SOLN • 

• 2ND CALB SOLN • 

• 3RD CALB SOLN • 

• 4TH CALB SOLN • 

POINT 

XBASE 

XSTPUNIT 

WMUNIT 

XSTRUNIT 

WMUNIT 

XSTRUNIT 

WMUNIT 

XSTRUNIT 

WMUNIT 

l 

.9687 

.9687 - 

20.0835 

.9687 

-12.3557 

.9687 

.7336 

.9679 

49.0051 

2 

.9375 

.9375 

-2.0339 

.9375 

.3504 

.9375 

22.0747 

.9357 

31.4676 

3 

.9062 

.9062 

-1.5704 

.9062 

-1.8310 

.9062 

32.2313 

.9036 

32.5262 

4 

.8750 

.8750 

-1.1541 

.8750 

-2.8760 

.0750 

39.4171 

.8714 

33.1910 

5 

.8437 

.8437 

-.5654 

.8437 

-3.2252 

.8437 

44.4573 

*8393 

33.0680 

6 

.8125 

.8125 

-.0083 

.8125 

-3.2979 

• 8125 

47.7861 

.0071 

32.3865 

7 

.7813 

.7813 

.4519 

.7813 

-3.2944 

.7013 

49.9671 

.7750 

31.2294 

B 

.7500 

.7500 

.8409 

.7500 

-3.2652 

.7500 

51.3220 

.7429 

29.7367 

9 

.7188 

.7188 

1.1920 

.7108 

-3.1984 

• 7166 

51.9009 

.7107 

27.0109 

10 

.6875 

.6875 

1.5444 

.6875 

-3.0260 

.6875 

51.5705 

• 6786 

24.0298 

11 

.6563 

.6563 

1.7105 

.6563 

-2.7491 

• 6563 

50.4412 

.6464 

22.6987 

12 

.6250 

.6250 

1.9518 

.6250 

-2.5167 

• 6250 

48.7109 

.6143 

20.1833 

13 

.5938 

.5938 

2.1692 

.5930 

-2.2244 

.5938 

45.0657 

• 5821 

17.5319 

14 

.5625 

.5625 

2.3808 

.5625 

-1.0467 

.5625 

41.5757 

• 5500 

12.3536 

15 

.5313 

.5313 

2.4946 

.5313 

-1.4206 

.5313 

34.7531 

.5179 

9.6214 

16 

.5000 

.5000 

2.6598 

• 5000 

-.9420 

• 5000 

27.1473 

.4857 

4.7197 

17 

• 4688 

• 4688 

2.8328 

• 4688 

-.3770 

• 4688 

18.3364 

.4536 

-3.8576 

18 

.4375 

.4375 

2.9307 

.4375 

• 3364 

.4375 

8.5195 

.4214 

-0.7994 

19 

• 4063 

• 4063 

2.8725 

.4063 

1.1044 

• 4063 

-2.1194 

.3893 

-19.8105 

20 

.3750 

.3750 

-1.1870 

.3750 

1.6390 

.3750 

-18.8717 

.3571 

-28.8464 

21 

• 3438 

.3438 

3.4304 

.3438 

1.2143 

.3438 

-42.9978 

.3250 

-49.4112 

22 

.3125 

.3125 

3.4417 

.3125 

-.2424 

.3125 

-82.2106 

.2929 

-73.9244 

23 

.2813 

.2813 

3.5360 

• 2813 

1.7374 

.2813 

-121.3626 

.2607 

-100.9777 

24 

.2500 

.2500 

3.5962 

.2500 

11.6055 

• 2500 

-170.1902 

.2286 

-129.5244 

25 

.2188 

.2188 

3.6615 

• 2188 

20.0759 

• 2188 

-213.2488 

.1964 

-168.5015 

26 

• 1875 

.1875 

3.7119 

.1875 

49.8522 

• 1875 

-259.9132 

.1643 

-199.0200 

27 

• 1563 

• 1563 

3.7645 

.1563 

63.6612 

• 1563 

-294.5792 

.1321 

-227.0555 

28 

.1250 

.1250 

3.8190 

.1250 

67.6203 

.1250 

-314.5814 

• 1000 

-256.0217 

29 

.0938 

.0938 

3.8704 

.0938 

67.8533 

.0938 

-323.8562 

.0679 

-313.1910 

30 

• 0625 

.0625 

4.0452 

.0625 

64,1781 

• 0625 

-310.0546 

.0357 

-301.6170 

31 

.0313 

.0313 

3.7273 

.0313 

59.1752 

.0313 

-306.1475 

• 0036 

-390.5942 

32 

.0313 

.0313 

-2.0986 

.0313 

20.0463 

.0313 

38.5597 

.0607 

53.0857 

33 

.0625 

.0625 

-1.7847 

.0625 

59.1447 

• 0625 

-147.0558 

.0929 

55.9563 

34 

.0937 

.0937 

-1.3110 

.0937 

75.5420 

.0937 

-243.1517 

• 1250 

57.6540 

35 

• 1250 

.1250 

-.7343 

.1250 

06.0979 

.1250 

-298.0271 

.1552 

44.6364 

36 

.1563 

.1563 

-.0684 

.1563 

76.0690 

• 1563 

-316.0947 

.1853 

6.7466 

37 

.1875 

.1875 

.5535 

.1875 

25.7422 

.1875 

-294.0541 

.2155 

-32.6152 

38 

• 2188 

.2188 

1.0050 

• 2188 

-37.4053 

.2108 

-251.8006 

.2457 

-67.3864 

39 

• 2500 

.2500 

1.4408 

.2500 

-54,6629 

.2500 

-211.5466 

.2759 

-90.1078 

40 

.2813 

.2813 

1.698B 

.2013 

-40,9663 

.2813 

-164.2406 

• 3060 

-107.1067 

41 

.3125 

.3125 

1.8322 

.3125 

-7.2238 

.3125 

-120.1525 

• 3362 

-113.3012 

42 

.3438 

.3438 

1.8675 

.3430 

12.3020 

.3430 

-91.4976 

.3664 

-110.1136 

43 

.3750 

.3750 

1.8318 

.3750 

18.5201 

.3750 

-70.0210 

.3966 

-104.1926 

44 

.4063 

.4063 

1.7031 

.4063 

17.1651 

• 4063 

-55.8055 

.4267 

-94.5723 

45 

.4375 

.4375 

1.6282 

.4375 

13.5137 

.4375 

-42.1093 

.4569 

-91.3018 

46 

• 4686 

.4688 

1.4959 

.4688 

12.4504 

• 4688 

-26.6607 

• 4871 

-81.2246 

47 

• 5000 

.5000 

1.4530 

.5000 

12.2531 

• 5000 

-10.9074 

.5172 

-76.0135 

48 

.5313 

.5313 

1.2463 

.5313 

11.9896 

.5313 

4.2757 

.5474 

-72.4756 

49 

.5625 

.5625 

1.1544 

.5625 

11,4311 

.5625 

16.9513 

.5776 

-60.5096 

50 

.5938 

.5938 

1.0832 

.5938 

10.5534 

.5938 

27.4695 

.6078 

-54.5505 

51 

.6250 

.6250 

1.0269 

.6250 

9.3045 

.6250 

35.8149 

.6379 

-48.5193 

52 

.6563 

.6563 

1.4608 

.6563 

9.0808 

« 6563 

43.1271 

.6681 

-AO. 0172 

S3 

.6875 

.6875 

.9389 

.6875 

7.4211 

.6875 

45.2747 

.6983 

-39.3476 

54 

.7108 

.7188 

.9441 

.7108 

6.8230 

.7108 

48.1426 

.7284 

-35.3002 


Figure A. 2.- Continued. 


• 5TH CALB SOLN • 
XSTRUNIT WMUNIT 

•9687 -134.3581 
•9375 321.5647 
.9062 553.3391 
.8750 730.8362 
.8437 869.5636 
•8125 982.7536 
•7813 1083.0267 
.7500 1177.6278 
.7168 1266.5219 
.6875 1346.7744 
.6563 1436.6945 
.6250 1513.6100 
•5938 1584.0968 
.5625 1644.2614 
.5313 1711.4227 
•5000 1760.2479 
.4688 1797.3748 
.4375 1649.8007 
.4063 1905.3349 
•3750 2411.8914 
•3438 1914.4486 
•3125 2377.3086 
•2813 1799.7259 
•2500 1750.2485 
•2188 1673.8101 
.1675 1603.4360 
.1563 1542.7842 
•1250 1493.5615 
.0938 1439.402B 
.0625 1395.2751 
•0313 1315.1689 
•0313 *774.5666 
•0625 -245.9485 
.0937 128.3677 
.1250 439.0277 
•1563 734.5830 
.1875 1034.5656 
•2188 1319.4035 
•2500 1533.4164 
•2813 1716.9271 
•3125 1866.5859 
•3438 1949.5734 
.3750 1996.9997 
.4063 2021.0725 
•4375 2006.6598 
.4688 2010.8281 
•5000 2014.4030 
.5313 1961.1819 
.5625 1922.7421 
.5938 1865.9004 
.6250 1793,9780 
.6563 1744.0449 
.6875 1578.7011 
.7188 1464.1293 
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n 


55 

.7500 

.7500 

1.0328 

.7500 

6.3076 

.7500 

49.1325 

.7506 

-31.5621 

.7500 

1334.1984 

56 

.7813 

.7013 

1.2671 

.7813 

5.8215 

.7813 

48.2877 

.7888 

-27.9952 

.7813 

1190.4777 

57 

.8125 

.8125 

1.6887 

.8125 

5.4206 

.8125 

45.5617 

• 8190 

-24.4539 

.0125 

1030.4991 

5 A 

.8437 

.8437 

2.3181 

.8437 

5.0341 

.8437 

40.6758 

.8491 

-21.2165 

• 6437 

846.5093 

59 

.8750 

.8760 

3.1611 

.8750 

4.5903 

.8750 

33.2001 

.8793 

-18.9875 

.8750 

630.1062 

60 

.9062 

.9062 

4.3495 

.9062 

3.9949 

.9062 

22.7723 

.9095 

-18.1252 

.9062 

376.1257 

61 

.9375 

.9375 

-.8723 

.9375 

4.0444 

.9375 

9.3163 

.9397 

-13.9357 

.9375 

73.0336 

62 

.9607 

.9607 

24.4162 

.9687 

8.5940 

.9687 

-15.1745 

.9698 

-38.7317 

.9687 

-419.0816 


Figure A. 2.- Continued 
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UNIT PERTURBATION OF WM AND UNIT STRAINING OF XBASE 
FOR CALIBRATION SOLUTIONS 6 THROUGH 6 


POINT XBASE 


1 

.9687 

2 

.9375 

3 

• 9062 

4 

.8750 

5 

.8437 

6 

.8125 

7 

.7813 

8 

• 7500 

9 

• 7108 

10 

.6875 

12 

• 6563 

12 

.6250 

13 

• 5938 

14 

.5625 

15 

.5313 

16 

• 5000 

17 

.4688 

18 

.4375 

19 

• 4063 

20 

.3750 

21 

• 3438 

22 

.3125 

23 

• 2813 

24 

• 2500 

25 

• 2168 

26 

• 1875 

27 

.1563 

28 

.1250 

29 

• 0938 

30 

• 0625 

31 

• 0313 

32 

.0313 

33 

• 0625 

34 

.0937 

35 

.1250 

36 

.1563 

37 

.1875 

38 

• 2186 

39 

.2500 

40 

.2813 

41 

.3125 

42 

.3438 

43 

.3750 

44 

• 4063 

45 

.4375 

46 

.4688 

47 

• 5000 

48 

.5313 

49 

.5625 

50 

.5938 

61 

.6250 

62 

.6563 

S3 

.6075 

54 

.7188 


• 6TH CALB SOLN • 
XSTRUNIT WMUNIT 

.9687 85.43*1 
.9375 -195.5425 
.9062 -73.2089 
.8750 -103.2774 
.8437 -137.1931 
.8125 rl30.I613 
.7813 -110.6727 
.7500 -99.2898 
.7188 -98.7822 
.6875 -106.3977 
•6563 *93.3852 
.6250 -88.7640 
.5938 -82.9426 
•5625 -80.9244 
.5313 -70.7242 
.5000 -68.5586 
•4688 -68.1042 
.4375 -40.0619 
•4063 -24.6671 
.3750 -8.0421 
.3438 -55.7364 
.3125 -139.4742 
.2813 -218.3122 
.2500 -304.8216 
.2188 -363.2004 
.1875 -220.2327 
.1563 179.5793 
.1250 972.0918 
.0938 2388.4336 
•0625 6013.0030 
.031310829.3856 
.0313 4319.9999 
.0625 974.4519 
.0937 -336.1720 
.1250 -849.5837 
.1563 -863.6749 
.1875 -370.0835 
• 21 B8 321.6473 
.2500 678.9298 
.2813 973.2190 
.3125 1123.6623 
.3438 1043.2128 
.3750 941.1998 
.4063 759.0115 
.4375 621.9917 
.4688 507.6942 
.6000 403.4571 
.5313 357.8155 
.5625 304.2645 
.5938 250.3880 
.6260 218.0293 
.6563 132.6033 
.6075 150.2109 
.7180 125.2795 


Figure A. 2.- Continued 
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55 

.7500 

.7500 

109.5129 

56 

.7013 

.7013 

100.1062 

57 

.8125 

.0125 

110.9669 

50 

.0437 

.0437 

116.0773 

59 

.0750 

.0750 

66.5779 

60 

.9062 

.9062 

1.4576 

61 

.9375 

.9375 

- 10.1001 

62 

.9607 

.9607 

46,1274 


Figure A. 2.- Continued 
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• • * 

C 0 N M I N 

• • • 


fortran program FOR 


• • « 

CONSTRAINED FUNCTION MINIMIZATION 

« • • 


CONSTRAINED FUNCTION MINIMIZATION 


CONTROL PARAMETERS 


IPRINT 

5 

NDV 

6 

ITMAX NCON 

6 6 

NS IDE ICNDIR 
1 7 

NSCAL NFDG 
-2 0 

LINOBJ 

0 

ITRM 

3 

N1 N2 

6 18 

N3 N4 

20 20 

N5 

40 

CT 

-• lOOOOE+OO 

CTHIN 

•40000E-02 

CTL 

-.1Q000E-01 

CTLMIN 

•10000E-02 

THETA 
• 1 OOOOE + 0 1 

PHI 

•SOOOOE^OI 

DELFUN 
• 1 OOOOE-03 

DABFUN 
• 1 7077E-02 

FDCH 

.10000E-01 

FDChM 
• 1 OOOOE-02 

ALPHAX 
. 10000E*00 

AB0BJ1 

.50000E-01 


LOWER BOUNDS ON DECISION VARIABLES (VLB) 

1) -• 15000E*01 •BOOOOE+OO .44444E*00 .33333E+00 .60000E*00 

UPPER BOUNDS ON DECISION VARIABLES ( VU0 ) 

D 0. • 240 00E ♦ 0 1 • 12222E+01 .26667E+01 .20000E*01 


SCALING VECTOR (SCAL) 

• 1 000E* 02 • 2500E^ 00 •4500E + 00 .1500E»01 .5000E-01 .5000E 

ALL CONSTRAINTS ARE NON-LINEAR 


INITIAL FUNCTION INFORMATION 
OBJ = • 1 7076SE+0 l 

OECISION VARIABLES (X-VECTORJ 

1) -.93094F.^01 •29650E*00 .55000E*00 .95806E*00 .32891E-01 

CONSTRAINT VALUES <G-VEcTOR) 

1) -.2B002E+01 -.97200E*00 -.14455E*02 -.96575E-01 -.15965E*01 


.60000E+00 

•24000E+01 

02 

•51525E-02 
• 40346E *00 


Figure A. 2.- Continued 
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BEGIN ITERATION NUMBER 1 

CT « - • 1 0000F+00 CTL = -.lOOOOE-Ol PHI s .50000E*01 


•** INPUT FOR BLADE ELEMENT PROGRAM *** 


NO. 

BLADES 

INLET 

RADIUS 

<L) 

CONE 

angle 

(DEG> 

SOLIDITY 

INLET 

BLADE 

ANGLE 

(DEG) 

OUTLET 

BLADE 

ANGLE 

(DEG) 

TRANS. 

LOC. 

/CHORD 

MAX.TH. 

LOC. 

/CHORD 

IN/OUT 

TURNING 

RATE 

MAX. 

THICK. 

/CHORD 

L.E. 

RAD. 

/CHORD 

T.E. 

RAD. 

/CHORD 

34 

.45400 

6.66400 

2.25200 

52.000 

-9.2163 

•29650 

.55000 

.95806 

.03289 

• 00515 

• 00500 


X ARRAY 


.966750 

.937500 

.906250 

•875000 

.843750 

•812500 

.781250 

.750000 

.718750 

.687500 

.656250 

•625000 

.593750 

•562500 

.531250 

.500000 

.468750 

•437500 

.406250 

.375000 

.343750 

.312500 

.281250 

.250000 

.218750 

•187500 

•156250 

.125000 

.093750 

.062500 

•031250 

.031250 

.062500 

.093750 

.125000 

.156250 

.187500 

.218750 

.250000 

.281250 

•312500 

.343750 

.375000 

.406250 

.437500 

•468750 

•500000 

.531250 

.562500 

.593750 

•625000 

•656250 

.687500 

.718750 

.750000 

.781250 

•812500 

.843750 

.875000 

•906250 


•937500 .968750 

Y ARRAY 


584.076 

500.337 

475.238 

463.430 

455.400 

448.954 

444.076 

440.771 

438.803 

437.961 

439.329 

440.014 

441.234 

442.820 

445.789 

447.710 

450.009 

454.064 

457.497 

462.420 

467.467 

473.700 

479.851 

488.249 

496.446 

500.451 

523.050 

541.205 

564.395 

599.393 

633.203 

836.552 

847.968 

851.223 

846.083 

834.497 

820.359 

805.330 

760.882 

770.861 

754.360 

739.430 

723.656 

710.984 

697.714 

680.937 

680.986 

671.750 

665.374 

658.826 

652.092 

645.132 

635.822 

629.366 

622.726 

615.621 

607.512 

597.461 

584.391 

567.523 


548.160 535.779 


OUTPUT FROM OBJCON 


OBJECTIVE 

FUNCTION DIFFS 

s 

• 851 22E* 03 



VO 

X 

•49855E*03 



DIFFS/VO 

X 

•17074E*01 

CONSTRAINT 

1 

BLTKS 

X 

•27996E*00 

CONSTRAINT 

2 

YMAX 

s 

•6332QE*03 



YMIN 

s 

• 43796E* 03 



DIFFP 

s 

• 14458E + 0 1 

CONSTRAINT 

3 

VM0 (MBO-2. 1 ) 

- 

• 5481 7E* , 03 



VMB (MBO-2. 2) 

= 

.50034E*03 


Figure A. 2.- Continued 
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TECLSR 


59789E-00 


*** INPUT FOR blade element PROGRAM *** 


NO. 

BLAOES 

INLET 

RADIUS 

ID 

CONE 

angle 

t DEG) 

SOLIDITY 

INLET 

BLADE 

ANGLE 

IDEG) 

OUTLET 

BLADE 

angle 

IDEG) 

34 

.45400 

6.66400 

2.25200 

52.000 

-9.3094 


TRANS. 

MAX. TH. 

IN/OUT 

max. 

L.E. 

T.E. 

LOC. 

LOC. 

TURNING 

THICK. 

RAD. 

RAD. 

/CHORD 

/CHORD 

RATE 

/CHORD 

/CHORD 

/CHORD 

.29946 

.55000 

.95806 

.03209 

.00515 

.00500 


X ARRAY 


.968750 

.937500 

.906250 

.875000 

.043750 

.812500 

.701250 

.750000 

.718750 

.687500 

.656250 

.625000 

.593750 

.562500 

.531250 

•500000 

.468750 

.437500 

.406250 

.375000 

.343750 

.312500 

.281250 

.250000 

.218750 

.107500 

.156250 

.125000 

.093750 

.062500 

.031250 

.031250 

.062500 

.093750 

•125000 

.156250 

.107500 

.210750 

.250000 

.281250 

.312500 

.343750 

.375000 

.406250 

.437500 

.468750 

•500000 

.531250 

.562500 

.593750 

•625000 

.656250 

.607500 

.718750 

.750000 

.781250 

.812500 

.843750 

.875000 

•906250 


•937500 *968750 

Y ARRAY 


585.909 

500.527 

475.378 

463.529 

455.444 

448.945 

444.024 

440.683 

438.603 

437.808 

439.162 

439.825 

441.025 

442.593 

445.553 

447.460 

449.744 

453.792 

457.233 

462.536 

467.151 

473.459 

479.527 

407.949 

496.191 

508.253 

522.880 

541.050 

564.235 

599.207 

633.031 

836.807 

048.310 

851.569 

846.407 

834.729 

020.384 

805.118 

780. 5B5 

770.581 

754.168 

739.293 

723.541 

710.869 

697.603 

688.635 

660.887 

671.669 

665.301 

658.757 

652.024 

645.023 

635.756 

629.298 

622.649 

615.521 

607.371 

597.260 

584.111 

567.130 

546.261 

533.531 





OUTPUT FROM O0JCON 


OBJECTIVE 1 

FUNCTION DIFFS 

s 

.851 57E+03 



WO 

= 

•49855E+03 



DIFFS/WO 

2 

. 170Q1E + 01 

CONSTRAINT 

1 

BLTKS 

= 

* 28326E ♦ 0 0 

constraint 

2 

YMAx 

- 

•63303E+03 



ymin 

= 

*4378 IE* 03 



DIFFP 

= 

. 14459E+0 1 

constraint 

3 

WMBtMBO-2.1> 

= 

• 54B26E* 03 



WMB (MBO-2* 2) 

= 

•50053E*03 


Figure A. 2 


Continued 
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TECLSR * .59667E*00 


*** INPUT FOR BLAQE ELEMENT PROGRAM **• 


NO. 

BLADES 

INLET 

RADIUS 

(L) 

CONE 

ANGLE 

(DEG> 

SOLIDITY 

INLET 

BLADE 

ANGLE 

<DEG) 

OUTLET 

BLADE 

ANGLE 

IDEfr) 

TRANS. 

LOC. 

/CHORD 

MAX.TH. 

LOC. 

/CHORD 

IN/OUT 

TURNING 

RATE 

MAX. 

THICK. 

/CHORD 

L.E. 

RAD. 

/CHORD 

T.E. 

RAD. 

/CHORD 

3* 

.45400 

6.66400 

2.25200 

52.000 

-9.3094 

.29650 

.54450 

.95806 

.03269 

.00515 

• 00500 


X ARRAY 


.968750 

.937500 

.906250 

.875000 

.843750 

.812500 

.781250 

.750000 

.718750 

.687500 

.656250 

.625000 

.593750 

.562500 

.531250 

.500000 

.468750 

.437500 

.406250 

.375000 

.343750 

.312500 

.281250 

•250000 

.218750 

•187500 

.156250 

.125000 

.093750 

.062500 

•031250 

.031250 

.062500 

.093750 

•125000 

•156250 

.187500 

.218750 

.250000 

.281250 

.312500 

.343750 

.375000 

•406250 

.437500 

•468750 

.500000 

.531250 

.562500 

.593750 

•625000 

.656250 

.687500 

.718750 

.750000 

.761250 

•812500 

.643750 

.875000 

.906250 

.937500 

.966750 





Y ARRAY 


585.942 

500.405 

475.206 

463.321 

455.209 

448.692 

443.759 

440.410 

438.407 

437.534 

436.893 

439.565 

440.779 

442.369 

445.366 

447.313 

449.644 

453.744 

457.241 

462.635 

467.384 

473.912 

480.189 

488.851 

497.278 

509.535 

524.319 

542.580 

565.816 

600.766 

634.540 

836.535 

848.943 

852.603 

847.791 

636.242 

821.925 

806.614 

789.911 

771.606 

754.651 

739.759 

723.871 

711.125 

697.795 

688.945 

680.910 

671.610 

665.174 

658.574 

651.799 

644.759 

635.485 

629.013 

622.360 

615.238 

548.198 

607.104 

533.589 

597.022 

503,914 

566,993 


OUTPUT FROH OBJCON 

OBJECTIVE FUNCTION DIFFS * .85268E*03 

WO ■ ■ 49B55E* 03 

OIFFS/WO * • 171 03E ♦ 0 1 

CONSTRAINT 1 BLTKS = *304 1 BE * 00 

CONSTRAINT 2 YMAX = .63454E+03 

YM IN * .43753E*03 

DIFFP * • 1 45Q3E *01 

CONSTRAINT 3 WMB(MBO-2.1) = .54820E*03 

WMB (MBO-2» 2) * .50040E*03 


Figure A. 2.- Continued. 
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TEClSR 3 • 5974 1E + 00 


•** INPUT FOR BLADE ELEMENT PROGRAM *** 


NO. 

BLADES 

INLET 

RADIUS 

(L) 

CONE 

angle 

(DEG) 

solidity 

INLET 

BLADE 

angle 

(DEG) 

outlet 

BLADE 

ANGLE 

(DEG) 

TRANS. 

LOC. 

/CHORD 

MAX.TH. 

LOC. 

/CHORD 

IN/OUT 

TURNING 

RATE 

max. 

THICK. 

/CHORD 

L.E. 

RAD. 

/CHORD 

T.E. 

RAD. 

/CHORD 

34 

.45400 

6.66400 

2.25200 

52.000 

-9.3094 

.29650 

.55000 

.96764 

.03289 

.00515 

.00500 


X ARRAY 


.968750 

.937500 

.906250 

.875000 

.043750 

•812500 

.781250 

.750000 

.718750 

.687500 

.656250 

.625000 

.593750 

.562500 

.531250 

.500000 

.468750 

.437500 

.406250 

.375000 

.343750 

.312500 

.281250 

.250000 

.218750 

.187500 

.156250 

•125000 

.093750 

.062500 

•031250 

.031250 

•062500 

.093750 

•125000 

•156250 

.187500 

.218750 

.250000 

.281250 

.312500 

.343750 

.375000 

.406250 

.437500 

.468750 

.500000 

.531250 

•562500 

.593750 

.625000 

.656250 

.687500 

.710750 

.750000 

.781250 

•812500 

•643750 

.875000 

.906250 

.937500 

.968750 





Y ARRAY 


586.337 

500.777 

475.659 

463.823 

455.737 

449.235 

444.309 

440.961 

438.951 

438.061 

439.395 

440.040 

441.220 

442.758 

445.677 

447.543 

449.777 

453.767 

457.140 

462.344 

466.803 

472.880 

478.743 

486.863 

494. 7B7 

506.576 

521-012 

539.030 

562.063 

597.128 

632.376 

837.637 

840.701 

651.710 

846.170 

834.089 

819.507 

804.075 

787.352 

769.212 

752.705 

737.799 

722.181 

709.606 

696.498 

687. B56 

679.943 

670.825 

664.577 

658.097 

651.430 

644.488 

635.279 

628.867 

622.256 

615.166 

548.079 

607.047 

533.116 

596.962 

583.032 

566.876 


OUTPUT FROM OBJCON 


OBJECTIVE 1 

FUNCTION DIFFS 

= 

•851 71E*03 



WO 

r 

•49855E+03 



diffs/wo 

= 

• 1 7084E*01 

CONSTRAINT 

1 

bltks 

s 

*27981E*00 

CONSTRAINT 

2 

YMAX 

s 

•63238E+03 



YM IN 

r 

• 43806E* 03 



DIFFP 

s 

. 14436E + 0 1 

CONSTRAINT 

3 

WMB(MRO-2, l) 

- 

•54808E+03 



WHR (MBO-2.2) 

= 

• 50078E * 03 


Figure A. 2.- Continued. 
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TECLSR 


59128E*Q0 


*** INPUT FOR BLADE ELEMENT PROGRAM ••• 


NO. 

BLADES 

INLET 

RADIUS 

(L) 

CONE 

angle 

(DEG) 

SOLIDITY 

INLET 

BLADE 

ANGLE 

(DEG) 

OUTLET 

BLADE 

ANGLE 

(DEG) 

TRANS. 

LOC. 

/CHORD 

MAX. TH. 

LOC. 

/CHORD 

IN/OUT 

TURNING 

RATE 

MAX. 

THICK. 

/CHORD 

L.E. 

RAD. 

/CHORD 

T.E. 

RAD. 

/CHORD 

34 

•45400 

6.66400 

2.25200 

52.000 

-9.3094 

.29650 

.55000 

.95806 

•03389 

.00515 

• 00500 


X array 


.968750 

.937500 

.906250 

.875000 

.843750 

.812500 

.781250 

.750000 

.718750 

.687500 

.656250 

.625000 

.593750 

.562500 

.531250 

.500000 

.468750 

.437500 

.406250 

.375000 

.343750 

•312500 

.281250 

.250000 

.218750 

.187500 

•156250 

•125000 

.093750 

.062500 

.031250 

.031250 

.062500 

.093750 

.125000 

.156250 

.1R7500 

.218750 

.250000 

.281250 

.312500 

.343750 

.375000 

.406250 

.437500 

.468750 

.500000 

.531250 

.562500 

.593750 

.625000 

.656250 

.687500 

.718750 

.750000 

.781250 

•812500 

.843750 

.875000 

•906250 


.937500 .968750 

Y ARRAY 


585.812 

500.848 

475.937 

464.269 

456.323 

449.937 

445.117 

441.870 

439.959 

439.164 

440.607 

441.346 

442.616 

444.242 

447.268 

449.223 

451.543 

455.641 

459.135 

464.943 

469.062 

475.837 

481.321 

489.665 

497.779 

509.709 

524.242 

542.343 

565.474 

600.412 

634.171 

835.973 

847.888 

851.474 

846.590 

835.238 

821.34? 

806.548 

790.281 

772.420 

756.056 

741.206 

725.483 

712.839 

699.569 

690.809 

682.865 

673.595 

667.190 

660.591 

653.790 

646.740 

637.313 

630.742 

623.964 

616.694 

608.385 

598.092 

584.727 

567.494 

548.322 

533.086 





OUTPUT FROM OBJCON 


OBJECTIVE 

FUNCTION DIFFS 

= 

•85147E+03 



WO 

= 

. 49855E *03 



DIFFS/WO 

3 

• 1 7079E ♦ 0 1 

CONSTRAINT 

1 

BLTKS 

3 

• 29081 E + 00 

constraint 

2 

YMAX 

= 

•63417E*03 



YMIN 

= 

• 4391 6E* 03 



OIFFP 

= 

. 1 4440E ♦ 0 1 

CONSTRAINT 

3 

WMB (MBO-2# 1 ) 

- 

•54R32E*03 



WMB (MB0-2»2) 

= 

• 50085E* 03 


Figure A. 2.- Continued 
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TECLSR = .59343E*00 


*** INPUT FOR BLADE ELEMENT PROGRAM *** 


NO. 

BLADES 

inlet 

RADIUS 

(L) 

CONE 

angle 

(DEG) 

SOLIDITY 

INLET 

BLADE 

ANGLE 

(DEG) 

OUTLET 

BLADE 

ANGLE 

(DEG) 

TRANS. 

LOC. 

/CHORD 

MAX.TH, 

LOC. 

/CHORD 

IN/OUT 

TURNING 

RATE 

MAX. 

THICK. 

/CHORD 

L.E. 

RAD. 

/CHORD 

T.E. 

RAD. 

/CHORD 

34 

.45400 

6.66400 

2.25200 

52.000 

-9.3094 

.29650 

•55000 

•95806 

.03289 

• 00615 

•00500 


X ARRAY 


.968750 

.937500 

.906250 

.875000 

.843750 

.812500 

.781250 

.750000 

.718750 

.687500 

.656250 

•625000 

.593750 

.562500 

.531250 

•500000 

.468750 

.437500 

.406250 

.375000 

.343750 

.312500 

.281250 

.250000 

.218750 

.187500 

.156250 

.125000 

.093750 

•062500 

.031250 

.031250 

.062500 

.093750 

•125000 

.156250 

.187500 

.218750 

.250000 

.281250 

.312500 

.343750 

.375000 

•406250 

.437500 

.468750 

.500000 

.531250 

.562500 

.593750 

.625000 

.656250 

.687500 

.718750 

.750000 

.781250 

.812500 

.843750 

.875000 

•906250 

.937500 

.968750 




586.031 

500.331 

475.311 

463.435 

455.316 

448.824 

443.923 

440.593 

438.594 

437.711 

439.077 

439.744 

440.949 

442.517 

445.486 

447.394 

449.677 

453.751 

457.205 

462.523 

467.092 

473.320 

479.303 

487.610 

495.742 

507.885 

522.879 

541.82? 

566.423 

605.030 

643.685 

841.067 

849.109 

851.009 

845.302 

833.639 

819.938 

805.551 

789.426 

771.676 

755.314 

740.299 

724.427 

711.577 

698.185 

669.306 

681.254 

671.991 

665.571 

658.984 

652.214 

645.128 

635.885 

629.403 

622.739 

615.612 

607.474 

597.362 

584.164 

567.120 

548.231 

533.552 





OUTPUT FROM OBJCON 


OBJECTIVE 1 

FUNCTION DIFFS 

5 

. 851 01E *03 



WO 

3 

• 49855E*03 



DIFFS/WO 

3 

. 1 7070E + 0 1 

CONSTRAINT 

1 

BLTKS 

= 

•423B6E*00 

CONSTRAINT 

2 

YMAX 


. 64369E *03 



ymin 

= 

•43771E*03 



DIFFP 

= 

. 14706E*0 1 

CONSTRAINT 

3 

WMB { MBO-2 • 1 ) 

s 

•5482JE*03 



WMB ( MBO-2* 2) 

s 

•50033E*03 


Figure A. 2.- Continued. 



129 


TEClSR « .59876E*00 


THERE ARE 1 ACTIVE CONSTRAINTS 

CONSTRAINT NUMBERS ARE 
4 

THERE ARE 0 VIOLATED CONSTRAINTS 

THERE ARE 1 ACTIVE SIDE CONSTRAINTS 

DECISION VARIABLES AT LONER OR UPPER BOUNDS (MINUS INDICATES LOVER BOUND) 

3 

GRADIENT OF OBJ 

I) -.26392E-01 •37807E-01 -,2I940E*00 •11434E*00 .I203OE-O1 

GRADIENTS OF ACTIVE AND VIOLATED CONSTRAINTS 
CONSTRAINT NUMBER 4 

1) •21332E-01 .22680E-01 -,24471E*00 -.18588E»00 -.44941E-01 

SIDE CONSTRAINT ON VARIABLE 3 

1) 0. 0. • 1 0000E*Ol 0. 0. 0 


PUSH-OFF FACTORS* (THETA(I). I-l.NAC) 
l) .U730E-02 0. 

CONSTRAINT PARAMETER* BETA « •36299E»00 

SEARCH DIRECTION (5-VECTOR) 

1) .32046E*00 -• I OOOOE+Ol .39056E-13 ~.43887E*00 . 19546E+00 - 

ONE-OINENSIONAL SEARCH 

INITIAL SLOPE * -.9148E-01 PROPOSED ALPHA - .1186E+00 


• • CONSTRAINED ONE-DIMENSIONAL SEARCH INFORMATION • • • 


PROPOSED DESIGN 
ALPHA * * 1 1860E*00 

X-VECTOR 

-.0929E*Ol .2668E+00 ,5500E*00 *8800E*00 .3405E-01 .472IE-02 


• 33759E-02 
•7B414E-01 

• 72800E+00 


Figure A. 2 


Continued 
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*** input fur blade element program *** 


NO. 

BLADES 

inlft 

RADIUS 

(L) 

CONF 

angle 

(DEG) 

SOLIDITY 

INLET 

BLADE 

ANGLE 

(DEG) 

OUTLET 

BLADE 

ANGLE 

(DEG) 

TRANS. 

LOC. 

/CHORD 

MAX.TH. 

LOC. 

/Chord 

IN/OUT 

turning 

rate 

max. 

THICK. 

/Chord 

L.E. 

RAD. 

/Chord 

T.E. 

RAD. 

/CHORD 

34 

.45400 

6.66400 

2.25200 

52.000 

-8.9293 

.26685 

.55000 

.87999 

.03405 

.00472 

.00500 


X ARRAY 


.968750 

.937500 

.906250 

.875000 

.843750 

.812500 

.781250 

.780000 

.718750 

.687500 

.656250 

.625000 

.593750 

.562500 

.531250 

.500000 

.468750 

.437500 

.406250 

.375000 

.343750 

.312500 

.281250 

.250000 

.218750 

.187500 

.156250 

.125000 

.093750 

•062500 

.031250 

.031250 

.062500 

.093750 

.125000 

.156250 

.187500 

.218750 

.250000 

.281250 

.312500 

.343750 

.375000 

•406250 

.437500 

.468750 

.500000 

.531250 

.562500 

.593750 

.625000 

.656250 

.687500 

.718750 

.750000 

.781250 

.937500 

.812500 

.968750 

.843750 

.675000 

•906250 


Y ARRAY 


575.226 

498.998 

473.561 

461.660 

454.132 

448.015 

443.428 

440.389 

438.698 

438.254 

439.690 

440.765 

442.260 

444.293 

447.409 

449.890 

452.824 

457.082 

461 .385 

466.261 

473.241 

48] .773 

489.466 

499.183 

509.712 

522.635 

538.120 

557.091 

582.208 

613.227 

650.082 

805.736 

837.247 

843.322 

041.747 

835.030 

826.076 

815.978 

002.000 

786.405 

769.349 

753.299 

736.954 

722.919 

709.390 

699.074 

690.470 

600.975 

673.220 

666.054 

658.757 

651.200 

641.678 

634.454 

627.364 

619.856 

549.410 

61 1.397 
545.087 

601.083 

587.877 

571.010 


OUTPUT FROM OBJCON 


OBJECTIVE 1 

FUNCT 

ION DIFFS 

H 

• 84 332E *03 



WO 

= 

. 49855E *03 



DIFFS/WO 

= 

. 1 69 16E *01 

CONSTRAINT 

1 

8LTKS 

= 

. 1 9679E ♦ 00 

CONSTRAINT 

2 

YM AX 

- 

. 65008E * 03 



YMIN 

= 

. 43825E *03 



DIFFP 

= 

• 1 4833E *01 

constraint 

3 

WMB (MBO-2* 1 ) 

= 

. 5494 IE ♦ 03 



WMB ( MBO-2 » 2) 

= 

• 49900E *03 


Figure A. 2 Continued 



TECLSR ■ *630 15E*00 


Opj « • 16916E+0 1 

CONSTRAINT VALUFS 

• 1968E+01 ••9803E+00 -,1483E*0? -.7291E-01 -.1630E*01 

two-point INTERPOLATION 


PROPOSED DESIGN 
ALPHA * .38598E*00 

X-VECTOR 

•8072E*01 .2000E+00 .5500E*00 .7040E*00 *3666E-01 


-.3698E+00 


•3748E-02 


Figure A. 2 Continued 
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**• INPUT FOR BLADE ELEMENT PROGRAM 


NO. 

BLADES 

INLET 

RADIUS 

(L) 

CONE 

angle 

(DEG) 

solidity 

inlet 

BLADE 

ANGLE 

(DEG) 

OUTLET 

BLADE 

ANGLE 

(DEG) 

34 

•45400 

6.66400 

2.25200 

52.000 

-B. 0725 


TRANS. 

MAX.TH. 

IN/OUT 

MAX. 

L.E. 

T.E. 

LOC. 

LOC. 

TURNING 

THICK. 

RAD. 

RAD. 

/CHORD 

/CHORD 

RATE 

/CHORD 

/CHORD 

/CHORD 

•20000 

•55000 

.70396 

.03666 

•00375 

.00500 


X ARRAT 


.968750 

.917500 

.906250 

.875000 

.643750 

•812500 

.781250 

. 750000 

.718750 

.687500 

•656250 

.625000 

.593750 

.562500 

.531250 

.500000 

.468750 

.437500 

.406250 

.375000 

.343750 

.312500 

*281250 

.250000 

.21B750 

*167500 

.156250 

. 125000 

.093750 

•062500 

.031250 

.031250 

.062500 

.093750 

.125000 

.156250 

.187500 

.218750 

.250000 

.281250 

.312500 

.343750 

.375000 

.406250 

.437500 

.468750 

.500000 

.531250 

.562500 

.593750 

•625000 

.656250 

.687500 

.718750 

.750000 

.781250 

.812500 

.043750 

.875000 

.906250 

.937500 

.960750 





Y ARRAY 


550.516 

494.472 

469.416 

457.972 

451.012 

445.739 

441.893 

439.521 

438.501 

430.930 

440.705 

442.613 

444.763 

447.601 

451.320 

454.923 

459.030 

464.065 

469.819 

475.041 

483.575 

497.330 

510.004 

521.974 

536.848 

553.060 

570.624 

590.966 

617.176 

649.070 

680.737 

771.425 

811.313 

824.141 

820.722 

828.531 

829.594 

831.320 

830.192 

820.107 

804.400 

786.288 

768.411 

751.285 

736.461 

723.326 

712.703 

702.584 

692.254 

683.150 

674.537 

665.675 

655.453 

646.455 

630.311 

629.888 

552.461 

620.680 

570.387 

609.854 

596.460 

579.793 


OUTPUT FROM OBJCON 


OBJECTIVE I 

FUNCTION DIFFS 

= 

•031 32E*03 



WO 

s 

• 49&55E *03 



DIFFS/WO 

= 

• 16675E ♦ 0 1 

CONSTRAINT 

1 

BLTKS 

= 

-.15560E-01 

CONSTRAINT 

2 

ymax 

s 

.68074E*03 



YM IN 

- 

.4305OE*O3 



DIFFP 

= 

• 1 5524E ♦ 0 1 

CONSTRAINT 

3 

WMB \ MBO-2 • 1 ) 

= 

• 55246E *03 



WMR (MBO-2.?) 

S 

. 49447E* 03 


Figure A . 2 . - Continued 
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TECLSR = .72406E*OO 


OBJ ■ • 16675E+0 1 

constraint values 

• |556E*00 -• 1002E+01 -,1552E*02 -.2974E-01 -.1725E*01 -.2751E*00 

THREE-POINT interpolation 


PROPOSED 

DESIGN 





ALPHA « 

•34405E*00 





X-VECTOR 






-•S207E*01 

•21 05E+00 

•5500E+00 

• 7316E+00 

•3625E-01 

• 3900E-02 


Figure A. 2 Continued 
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•** INPUT FOR BLADE ELEMENT PROGRAM «•* 


NO, 

BLADES 

INLET 
RADIUS 
(L ) 

CONE 

angle 

(DEG) 

SOLIOITY 

INLET 

BLADE 

ANGLE 

(DEG) 

OUTLET 

BLADE 

ANGLE 

(OEG) 

TRANS. 

LOC. 

/CHORD 

MAX.TH. 

LOC. 

/CHORO 

IN/OUT 

TURNING 

RATE 

MAX. 

THICK. 

/CHORD 

L.E. 

RAO. 

/CHORD 

T.E. 

RAD. 

/CHORD 

3* 

•AS400 

6.66400 

2.25200 

52.000 

-ft. 2069 

.21048 

.55000 

.73157 

.03625 

•00390 

•00500 


X ARRAY 


.966750 

.937500 

.906250 

.875000 

.843750 

.812500 

• 78 1 250 

.750000 

.718750 

.687500 

.656250 

.625000 

.593750 

.562500 

.531250 

.500000 

.468750 

.437500 

.406250 

.375000 

.343750 

.312500 

.281250 

.250000 

.218750 

.187500 

.156250 

•125000 

.093750 

•062500 

.031250 

.031250 

•062500 

.093750 

•125000 

.156250 

.187500 

.218750 

•250000 

•281250 

.312500 

.343750 

.375000 

.406250 

.437500 

.468750 

•500000 

.531250 

.562500 

.593750 

.625000 

.656250 

.687500 

.718750 

.750000 

.781250 

.812500 

•843750 

.875000 

.906250 


•937500 .968750 

Y ARRAY 


554.440 

495.278 

470.079 

450.591 

451.514 

446.110 

442.149 

439.674 

430.551 

438.852 

440.560 

442.346 

444.394 

447,189 

450.736 

454.173 

458. 122 

463.009 

468.580 

473.631 

482.259 

495.175 

506.951 

510.634 

532.909 

548.497 

565.728 

585.899 

612.229 

643.711 

676.661 

773.620 

815.504 

827.247 

831.057 

830.276 

829.937 

829.753 

026.301 

815.041 

798.820 

780.988 

763.374 

746.734 

732.177 

719.420 

709.164 

699.143 

689.165 

680.415 

672.011 

663.358 

653.257 

644.542 

636.568 

628.294 

619.208 

608.467 

595.108 

578.415 


551.9*1 566.495 


OUTPUT FROM 08JC0N 


OBJECTIVE FUNCTION DIFFS 

H 

•831 06E*03 



WO 

= 

•49855E+03 



DIFFS/WO 

= 

. 16670E*01 

CONSTRAINT 

1 

BLTKS 

= 

•20848E-01 

CONSTRAINT 

2 

YMAX 

s 

• 67666E * 03 



YM1N 

» 

• 43855E* 03 



diffp 

s 

. 15429E+01 

constraint 

3 

WM8 (MBO-2 ♦ t ) 

= 

• 55 1 94E *03 



WMF) (MBO-2.?) 

= 

• 495H8E * 03 


Figure A. 2.- Continued 
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TECLSR = • 70829E *00 


OBJ s • 16670E* 0 1 
CONSTRAINT VALUES 

-.2085E*00 -.9979E*00 -,1543E*02 -.3566E-0] -.170BE*01 -,29I7E*00 

• • • END OF ONE-DIMENSIONAL SEARCH 
CALCULATED ALPHA = .34405E*00 

OBJ » « 166695E+01 

OECISION VARIABLES (X-VECTOR) 

1) -.B2069E*01 .21048E*00 .$5000E*00 .73157E*Q0 .36253E-0I .39002E-02 

CONSTRAINT VALUES (G-VECTOR) 

1) -.20848E*00 -•99792E*00 -.15429E*02 -.35658E-Q1 -.17083E*01 -.29171E*00 

BEGIN ITERATION NUMBER 2 

CT * -• 10000E+00 CTL * -.10000E-01 PHI = .50000E*01 


Figure A. 2.- Continued. 
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FINAL OPTIMIZATION INFORMATION 
OR J * .16652QE*01 

DECISION VARIABLES (X-VECTOR) 

1) -.80297E*0I •20000E*00 ,55000E*00 .73559E*00 .36263E-01 ,393096-02 

CONSTRAINT VALUES (G-VECTOR) 

II -.44211E-01 -.999S6E*00 -,1^409E*02 -.369606-01 -.1710BE*01 -.289226*00 

there are ? active constraints 

CONSTRAINT NUMBERS ARE 
1 4 

there are n violated constraints 

there ARE 2 ACTIVE SIDE CONSTRAINTS 

DECISION VARIABLES AT LOWER OR UPPER BOUNDS (MINUS INDICATES LOWER BOUND) 

•2 3 

TERMINATION CRITERION 

Aes<OBj(n-oaju-m less than oabfun for 3 iterations 


NUMBER OF 

ITERATIONS = 

4 



OBJECTIVE 

FUNCTION WAS 

evaluated 

35 

TIMES 

CONSTRAINT 

FUNCTIONS WERE EVALUATED 

35 

times 


Figure A. 2 


Continued 
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*** INPUT FOR BLADE ELEMENT PROGRAM *♦* 


NO. 

BLADES 

inlet 

RADIUS 

(L> 

CONE 

ANGLE 

<OEG> 

SOLIDITY 

INLET 

BLADE 

ANGLE 

(OEG> 

OUTLET 

BLADE 

ANGLE 

(DEG) 

TRANS. 

LOC. 

/CHORD 

MAX.TH. 

LOC. 

/CHORD 

IN/OUT 

TURNING 

RATE 

MAX. 

THICK. 

/CHORD 

L.E. 

RAD. 

/CHORD 

T.E. 

RAD. 

/CHORO 

34 

.45400 

6.66400 

2.25200 

52.000 

*8.0297 

.20000 

.55000 

.73559 

•03626 

•00394 

•00500 


X ARRAY 


.968750 

.937500 

.906250 

.875000 

.843750 

.812500 

.781250 

.750000 

.718750 

.687500 

.656250 

.625000 

.593750 

.562500 

.531250 

.500000 

.468750 

.437500 

.406250 

.375000 

.343750 

.312500 

.281250 

.250000 

.218750 

.187500 

.156250 

.125000 

.093750 

.062500 

.031250 

.031250 

.062500 

.093750 

.125000 

.156250 

.187500 

.218750 

.250000 

.281250 

.312500 

.343750 

.375000 

.406250 

.437500 

.468750 

.500000 

.531250 

.562500 

.593750 

.625000 

.656250 

.687500 

.718750 

.750000 

.781250 

.937500 

.812500 

.968750 

.843750 

.875000 

.906250 


Y ARRAY 


551.119 

494.850 

469.915 

458.527 

451.557 

446.251 

442.372 

439.964 

438.901 

439.254 

440.997 

442.810 

444.888 

447.705 

451.267 

454.707 

458.662 

463.548 

469.088 

473.693 

482.427 

495.670 

507.322 

518.886 

532.924 

548.211 

565.190 

585.230 

611.560 

642.955 

676.287 

773.752 

815.380 

826.614 

830.225 

829*402 

R29.251 

829.606 

826.571 

815.313 

798.841 

700.729 

762.982 

746.369 

731.856 

719.154 

708.939 

698.905 

688.952 

680.241 

671.864 

663.297 

653.173 

644.471 

636.534 

628.317 

551.713 

619.321 

570.457 

608.705 

595.505 

579.029 


OUTPUT FROM OBJCON 


OBJECTIVE 1 

FUNCTION DIFFS 

s 

•83023E+03 



VO 

s 

. 49855E *03 



DIFFS/WO 

s 

• 16653E*01 

CONSTRAINT 

1 

BLTKS 

s 

•4421 1E*02 

constraint 

2 

YMAX 

- 

•67629E+03 



ymin 

= 

• 43B90E+03 



diffp 


. 15409E*01 

CONSTRAINT 

3 

VMR (MBO-2. 1 ) 

- 

•551 71E+03 



WMB (MBO-2.2) 

B 

.49485E*03 


Figure A. 2 


Continued 



TECLSR 


71078E*0G 


H OPTIMIZATION RESULTS 

W 
00 

OBJECTIVE FUNCTION 


GLOBAL 

LOCATION 

1 FUNCTION VALUE 

• 16653E*01 


DESIGN 

VARIABLES 






D. V. 

GLOBAL 

LOWER 


UPPER 

ID 

NO. 

VAR. NO. 

BOUND 

VALUE 

BOUND 

1 

1 

2 

-.15000E+02 

-.80297E*01 

0. 

2 

2 

3 

• 20000E*00 

•20000E*00 

•60000E+00 

3 

3 

4 

•20OOOE+OO 

• 550 OOE ♦ 00 

•55000E*00 

4 

4 

5 

•SOOOOE^OO 

• 73559E^00 

•40000E+01 

5 

5 

6 

.30000E-01 

•36263E-01 

. 1 OOOOE + OO 

6 

6 

7 

.30000E-02 

• 39389E-02 

•I2000E-01 


DESIGN CONSTRAINTS 


ID 

GLOBAL 
VAR. NO. 

LOWER 

BOUND 

VALUE 

UPPER 

BOUND 

1 

8 

0 . 

• 4421 IE-02 

• 10000E+02 

3 

9 

0 . 

• 15409E^ 01 

. 16000E+0 1 

5 

10 

*• 1 0000E+01 

.71078E*00 

• lOOOOE+Ol 


Figure A. 2 Continued 
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*** INPUT FOR BLADE ELEMENT PROGRAM *** 


NO. 

BLADES 

INLET 

RADIUS 

(L> 

CONE 

ANGLE 

(DEG) 

solidity 

INLET 

BLADE 

ANGLE 

(DEG) 

OUTLET 

BLADE 

ANGLE 

(DEG) 

TRANS. 

LOC. 

/CHORD 

MAx.TH, 

LOC. 

/CHORD 

IN/OUT 

TURNING 

RATE 

MAX. 

THICK. 

/CHORD 

L.E. 

RAD. 

/CHORD 

T.E. 

RAD. 

/CHORD 

34 

.45400 

6.66400 

2.25200 

52.000 

-8.0297 

• 20000 

.55000 

.73559 

•03626 

•00394 

•00500 


**• OUTPUT FROM BLADE ELEMENT PROGRAM *** 


ELEMENT 

SETTING 

CHORD ANGLE 

(L) (OEG1 

.19322 23.5522 



• MERID. 

LOC. FROM L.E. 

CENT. ** 

** THETA 

LOC. FROM L.E. 

CENT. ** 

(WITH RESPECT TO 

LOCAL CONIC RAY) 

SEGMENT 

LENGTHS 


INLET 

(L) 

outlet 

(L) 

TRANS. 

(L) 

MAX.TH. 

(L) 

inlet 

(RAD) 

OUTLET 

(RAD) 

TRANS. 

(RAD) 

MAX.TH. 

(RAD) 

INLET 

(DEG) 

OUTLET 

(DEG) 

TRANS. 

(DEG) 

MAX.TH. 

(DEG) 

FIRST 

(L) 

SECOND 

(L) 

SUCT. 

-.00061 

.17564 

.02675 

•08501 

.00101 

.16727 

.06970 

.15112 

52.848 

-11.222 

44.807 

20.661 

•04159 

.16190 

CENT. 

0.00000 

.17546 

.02807 

.08624 

0.00000 

.16526 

•06653 

•14405 

52.000 

-8.030 

42.376 

20.661 

.04136 

.1593$ 

PRES. 

.00059 

• 17538 

• 02940 

•08748 

-.00105 

.16325 

•06334 

•13699 

51.166 

-4.794 

39.883 

20.661 

.0*11* 

.15704 






CONIC ANGLE 
** (FROM LEADING 

COORD. - 6 **** 
EDGE CENT.) 

(WITH RESPECT TO 

f L.E. CENT. RAY) 








inlet 

(DEG) 

OUTLET 

(DEG) 

TRANS. 

(DEG) 

MAX.TH. 

(DEG) 

INLET 

(DEG) 

OUTLET 

(DEG) 

TRANS. 

(DEG) 

MAX.TH. 

(DEG) 







SUCT. 

.007 

1.112 

• 463 

1.005 

52.855 

-10.110 

45.271 

21.666 







CENT. 

0.000 

1.099 

.442 

• 958 

52.000 

-8.030 

42.819 

21.619 







PRES. 

-.007 

1.085 

• 421 

.911 

51.159 

-3.709 

40.304 

22.530 




Figure A. 2 •- Continued 
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*** OUTPUT THAT CAN BE PUNCHED FOR TSONIC INPUT *** 


« 


CHORD 5TGR • 

<l) (RAD) * 

.17718 .165276 * 


• ft** 


*** suction 

SURFACE *** 


* 

* 

* 


*** PRESSURE 

SURFACE 


»••• 


RI 

RO 

BET I 

BETO 

• 

• 

RI 

RO 

BET I 

BETO 



(L> 

(L) 

(DEG) 

(DEG) 

• 

(L) 

(L) 

(DEG) 

(DEG) 



.00076 

.00097 

52.0551 

10.1097 

• 

« 

•00076 

.00097 

51.1587 

-3.7086 




ZMSP 

THSP 


* 

* 


ZMSP 

THSP 





(L) 

(RAD) 


• 


(L) 

(RAD) 





.00015 

.001012 


• 


.00135 

-.001051 





.00644 

•018624 


• 


.00775 

.015605 





.01569 

.042414 


• 


.01729 

.037720 





.02608 

•068304 


* 


.02098 

•061165 





.04209 

.097782 


* 


•04470 

•087489 





.05884 

.122866 


• 


.06153 

•110221 





.07607 

.143206 


* 


.07931 

.129167 





.09593 

.158534 


* 


.09786 

.144173 





.11571 

.168663 


* 


.11700 

.155129 





.13592 

.173491 


ft 


•13656 

•161966 





.15219 

.173520 


• 


.15237 

•164450 





.16637 

.170770 


* 


•16624 

•164451 



ft*** 


.17641 

.167241 


• 

• 


•17614 

.163216 


»••• 


Figure A.2.- 


! 

Continued . 
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PLOT OF BLADE SURFACE IN THETA - M COORDINATES ••• 



Figure A. 2.- Continued 



Figure A. 2.- Continued 
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INPUT FOB TSONIC 8LADE-T0-BLADE FLOW SOLVER 


GAM 

AR 

TIP 

RHOIP 

WTFL 


OMEGA 

ORF 

1.400000 

1716.480 

599.7600 

.3345860E-02 

• 57 00 0OOE-O2 

0. 

0. 

1.910000 

BET AT 

BET AO 

CHDRDF 

5T6RF 

FSM1 

FSMO 



4ft, 20000 

n. 

.1771834 

.1652756 

0 . 

0 . 



redfac 

DENTOL 

SSM1 

SSM2 





1.000000 

. 1 000000E-02 i 

0. 

0 . 





MB I MBO 

MM 

NBBI NHL 

NRSP MOPT 

LOPT LRVB 




24 56 

0 0 72 

15 34 

13 0 

1 0 




BLADE SURFACE 

1 — UPPER SURFACE 






RI1 

ROl 

BETH 

BETOl 

SPLN01 




•7610700E-03 

.9660876E-03 

52.85512 

-10.10968 

13.00000 




MSPl ARRAY 
•1544666E-03 

.6437113E-02 

. 156B635E-01 

.2687976E-01 

.4208902E-01 

•5883798E-01 

.7687469E-01 

.9592700E-01 

.1157074 

.1359176 

. 1521902 

.1663708 

.1764053 




THSP1 ARRAY 
•1012280E-02 

.1862413E-01 

.4241444E-01 

• 68304 1 4E-0 1 

• 9778 1 83E-0 1 

•1228661 

•1432064 

• 158534 1 

•1686632 

.1734907 

.1735195 

.1707699 

.1672414 




BLADE SURFACE 

2 — LOWER SURFACE 






RI2 

HO? 

BET 12 

BET02 

SPLN02 




• 7610700E-03 

.9660876E-03 

51.15866 

-3.708649 

13.00000 




MSP? ARRAY 
•1353915E-02 

• 77497 QbE-02 

• 1729088E-G 1 

. 289B442E-Q 1 

.4470456E-01 

•61533B8E-01 

.7930961E-01 

•9785967E-01 

•1170045 

•1365588 

.1523700 

.1662433 

.1761365 




THSP2 ARRAY 








■*• IC50$20E*02 

• 15605 16E-0 1 

. 377 1 963E-0 1 

• 6 1 1 6454E-0 1 

•8748856E-01 

.1102210 

•1291670 

.1441733 

.1551291 

•1619659 

•1644503 

•1644505 

.1632162 




MR ARRAY 








-.1300000 

-•5000000E-02 

•5000000E-02 

•2003000E-01 

•4003000E-01 

•8003000E-01 

•1000300 

•1250300 

•1500400 

•1752600 

•1852600 

.2250000 

.2700000 




RMSP ARRAY 
.4540000 

.4540000 

.4540000 

•4540000 

.4540000 

•4540000 

.4540000 

•4540000 

.4540000 

.4540000 

.4540000 

.4540000 

.4540000 




BESP ARRAY 
•5000000E-01 

•SOOOOOOE-Ol 

• 4990 OOOE-0 1 

■ 4960 0 0 OE-0 1 

.4925000E-Q1 

•4850000E-01 

.4015OQOE-O1 

•4770000E-01 

.4720000E-01 

. 46750 0 OE- 0 1 

.4661 OOOE-Ol 

• 466 1 OOOE-O 1 

. 466 1 OOOE-O 1 




PL05S ARRAY 








0 . 

0 . 

• 1 500000E-02 

.5900000E-02 

■ 1 1 OOOOOE-0 1 

•2 150000E-01 

• 3000000E-0 1 

• 3350000E-0 1 

.4000000E-01 

.4700000E-01 

.4800000E-01 

.4B0QQ00E-01 

.4800000E-01 




BLOAT AANDK 

ERSOR STRFN SLCRD INTVL SURVL 





0 0 

0 0 0 

0 1 







Figure A. 2.- Continued. 
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RELATIVE 
VELOCITY 
ATMs FSMI 
745.90 
AT M = FSMO 
497.92 


meridional 

velocity 

AT M = FSMI 
497.17 
AT M s FSMO 
497.9? 


CRITICAL 

VELOCITY 

AT M = FSMI AT 

1095.9 

AT Hd FSMO AT 

1095.9 


FSMI s 0. 

FSMO = . 17718 


CALCULATED PROGRAM CONSTANTS 


PITCH 
• 1847996 

ITMJN 

0 

LAMBDA 

252.4466 


HT 

.1231997E-01 

I TMAX 
28 


HM 1 

•5536980E-02 


OOWNSTRE AM WHIRL (RVTHO) 

0 . 


REDUCED WEIGHT FLOW * .57OOO00E-O2 

NUMBER OF INTERIOR MESH POINTS = 1047 


CALCULATED VELOCITY 

DIAGRAM 

INFORMATION 



IM 

w 

W/WCR 

UPSTREAM ROUNDARY 

1 

745.10 

.67988 

LEADING eoge 

24 

745.90 

•68061 

TRAILING EDGE 

56 

497.92 

.45433 

DOWNSTREAM BOUNDARY 

72 

499.62 

.45589 


REL. FLOW 
ANGLE 

UPSTREAM 8DY. 
48.269 

DOWNSTREAM BDY. 

0 . 


BETA 

48.269 

48.200 

0. 

0 . 


Figure A. 2.- Continued 
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ITERATION NO. 1 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .1846 AT IM =0. IT H 7* SURF * It Ms .3571E-01 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .1074 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS = 92 


ITERATION NO, ? 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .6432E-01 AT IM a Ot IT s 1. SURF * l, M * .4135E-02 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS a .2615E-01 
NUMBER OF UNCONVERGFD BLADE SURFACE MESH POINTS a 92 


ITERATION NO. 3 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = t2959£-01 AT IM * 0* IT a It SURF » 1, Ms .4135E-02 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS s .8037E-02 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS = 91 


ITERATION NO. 4 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .1410E-01 AT IM a 0* IT « it SURF » i» Ms .4135C-02 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS a .2790E-02 
NUMBER OF UNCONVERGEO BLADE SURFACE MESH POINTS = 5S 


ITERATION NO. 5 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .6708E-02 AT IM * Ot IT * i« SURF « it Ms .4135E-02 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS a .1Q41E-02 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS a 27 


ITERATION NO. 6 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .3285E-02 AT IM a o» IT s SURF « it Ms t4l35E-02 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS a .4003E-03 
NUMBER OF UNCONVERGED BLADE SURFACE MESH POINTS = 17 


ITERATION NO. 7 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .1422E-02 AT IM a o* IT a it SURF * 1, Ms .4135E-02 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS a .1766E“03 
NUMBER OF UNCONVERGEO BLADE SURFACE MESH POINTS = i 


ITERATION NO. ft 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .7977E-03 AT IM * Ot IT a \ , SURF > 1, M * .4135E-02 

AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS = .7674E-04 
NUMBER OF UNCONVERGFD BLADE SURFACE MESH POINTS a 0 


ITERATION NO. 9 

MAXIMUM RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS a .2963E-03 AT IM a Ot IT * )5t SURF « 2i M * .1739E-02 


Figure A. 2 . - Continued. 



146 


AVERAGE RELATIVE CHANGE IN DENSITY AT BLADE SURFACE POINTS * .2880E-04 

NUMBER OF UNCONVERGFD BLADE SURFACE MESH POINTS = 0 


% Surface velocities baseo on meridional components - reduced weight flow 


* % 



% 


BLADE 

SURFACE 1 


% 


BLADE 

SURFACE 2 


M 

% 

velocity 

ANGLE (DEG) 

SURF. LENGTH 

W/WCR 

% 

VELOCITY 

ANGLE (DEG) 

SURF. LENGTH 

W/WCR 

0. 

% 

0. 

90.00 

0. 

0. 

% 

0. 

-90.00 

0. 

o. 

•5537E-02 

% 

797.1 

51.11 

* 9198E-02 

.7273 

% 

659.3 

49.33 

• 7 168E-02 

• 6016 

.1I07E-01 

% 

813.2 

49.39 

• 1 786E-0 1 

.7420 

% 

631.7 

47.02 

• 1547E-01 

.5764 

. 1661E-01 

% 

825.6 

47.83 

•2623E-01 

.7533 

% 

596*0 

44.79 

•2343E-01 

.5438 

•22I5E-01 

% 

838.0 

46.15 

,343?E-01 

.7646 

% 

571.5 

42.65 

•3109E-0 1 

.5215 

•2768E-01 

% 

845.8 

44.13 

•4221E-01 

.7718 

% 

551.4 

40.56 

. 3849E-01 

• 5031 

.3322E-01 

% 

845.9 

41, 8B 

• 4978E-0 1 

.7719 

% 

534.4 

38.52 

.4567E-01 

.4876 

•3876E-01 

% 

839.4 

39.46 

•5708E-01 

.7659 

\ 

519.7 

36.50 

.5265E-01 

.4742 

.4430E-01 

% 

827 *6 

36.90 

*6413E-01 

.7551 

% 

507.1 

34.53 

. 5946E-0 1 

• 4627 

.4983E-01 

% 

809.1 

34.39 

.7094E-01 

.7383 

% 

497.9 

32*60 

•6610E-01 

• 4544 

.5537E-01 

% 

787.1 

32.00 

, 7756E-0 1 

.7182 

% 

486.4 

30.71 

.7261E-01 

• 4457 

•6091E-01 

% 

767.5 

29.79 

.B401E-01 

.7003 

\ 

481.6 

28.87 

•7899E-01 

• 4394 

.6644E-01 

% 

751.8 

27 *62 

•9032E-01 

• 6860 

% 

474.2 

27.07 

• 8526E-0 1 

• 4327 

.7198E-01 

% 

735.6 

25.47 

•9651E-01 

.6712 

% 

469.0 

25.29 

.9143E-01 

• 4279 

•7752E-01 

% 

723.0 

23.35 

O 026 

.6597 

% 

463.2 

23.54 

.9751E-01 

.4227 

•8305E-01 

% 

709.9 

21.26 

O 086 

• 6478 

% 

459.5 

21.83 

.1035 

• 4193 

•8859E-0 1 

% 

700.7 

19.21 

O ^45 

• 6394 

% 

454.9 

20.14 

*1094 

• 4151 

•9413E-01 

% 

691.8 

17.20 

• 1203 

• 6313 

% 

452.2 

18. 46 

*1153 

• 4126 

.9967E-01 

% 

681.5 

15.23 

.1261 

• 6219 

% 

449.7 

16.82 

.1211 

• 4103 

*1052 

% 

673.9 

13.28 

.1318 

• 6149 

\ 

446.0 

15.19 

.1269 

• 4069 

.1107 

% 

666.0 

11.34 

0375 

.6077 

% 

444.0 

13.58 

• 1326 

.4052 

*1163 

% 

658.1 

9.43 

• 1431 

• 6005 

% 

442.6 

12.00 

*1383 

• 4038 

• 1218 

% 

650.4 

7.53 

.1487 

.5935 

% 

441.7 

10.43 

.1439 

• 4030 

0274 

* 

642.7 

5.65 

.1543 

• 5865 

% 

441.7 

8.65 

.1495 

• 4030 

.1329 

% 

632.3 

3.79 

0598 

.5770 

% 

441.3 

7.28 

.1551 

.4027 

.1384 

% 

624.6 

1.94 

0654 

.5699 

% 

443.7 

5.71 

.1607 

• 4049 

*1440 

% 

615.9 

.08 

O 709 

.5620 

% 

447.6 

4.19 

*1663 

• 4084 

.1495 

% 

605.7 

-1.78 

0 764 

.5527 

% 

452.8 

2.74 

• 1718 

• 4132 

0550 

% 

593.0 

-3.65 

.1820 

.5411 

% 

459.0 

1.33 

.1773 

• 4166 

0606 

% 

579.4 

-5.46 

0875 

.5287 

% 

468.2 

-.33 

.1829 

• 4272 

*1661 

% 

561.2 

-7*22 

.1931 

.5121 

% 

489.6 

-2.27 

.1884 

• 4467 

.1716 

% 

549.8 

-8.86 

0987 

.5016 

% 

567*0 

-3.66 

.1940 

.5173 

0772 

% 

0. 

-90.00 

• 2045 

0. 

% 

0. 

90.00 

.1995 

0. 


Figure A. 2.- Continued. 
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SURFACE VELOCITIES RASED ON TANGENTIAL COMPONENTS 
REDUCED WEIGHT FLOW 



blade 

SURFACE 1 


M 

VELOCITY 

ANGLE ( Dfc' G ) 

*/ WCR 

0. 

493.5 

90.00 

• 4503 

.4135E-02 

859.0 

51 .56 

.7838 

.8691E-02 

801.6 

SO. 1 1 

.7314 

•1349E-01 

817.5 

40.69 

.7460 

• 1 852E-0 1 

829.3 

47.29 

.7567 

.2304E-O1 

840.8 

45.57 

.7672 

• 2953E-0 1 

047.4 

43-40 

.7732 

.3571E-01 

846.7 

40.81 

.7726 

.4254E-01 

838.8 

37.72 

.7654 

.5026F-01 

808.8 

34.20 

.7380 

.5909E-01 

783.6 

30.50 

.7150 

.6940E-01 

751. B 

26.46 

• 6860 

.B192E-01 

726.3 

21.69 

.6627 

•9040E-O1 

699.7 

15.65 

.6385 

• 1292 

657.5 

5.03 

.5999 

.1592 

583.5 

-5.01 

.5324 



blade 

SURFACE 2 


H 

VELOCITY 

ANGLE (DEG1 

W/WCR 

. 1 739E-02 

769.5 

50.99 

.7021 

.6438E-02 

661.6 

48.95 

.6037 

•1149E-01 

617.5 

46*84 

.5634 

•1694E-01 

587.2 

44 . 66 

.5358 

•2283E-01 

562.6 

42.39 

.5134 

•2922E-01 

541.6 

39.99 

.4942 

. 3620E-0 1 

523.1 

37.43 

.4773 

•4308E-O1 

507.4 

34.68 

.4630 

.5243E-01 

490.0 

31.71 

.4471 

•6208E-0 1 

4 75.2 

28.48 

.4336 

.7321E-01 

462.6 

24.90 

.4221 

.8649E-01 

453.6 

20.78 

.4139 

.1035 

444.2 

15.70 

.4053 

.1300 

433.7 

8.09 

.3958 


Figure A. 


Continued. 



BLADE SURFACE VELOCITIES FOR FULL WEIGHT FLOW 


400. 

0.000 


.050 


,100 


.150 


.200 

400 


450. 

— 1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

— 1 

1 

1 

1 X 
1 X 
1 

1 X 
1 X 

IX 

X 

x 

XI 
XI 
XI 
X 1 
X 1 
1 

X 1 
XI 
X 

1 X 
1 X 
1 
l 
1 
1 
1 
1 
1 

— 1 

450. 


500. 

— *1 — 
1 
1 
1 
1 
1 
1 
1 
1 

IX 

-Q-X-- 
X 1 
1 
1 
1 
1 
l 
1 
1 
l 

1 

1 

1 

1 

1 

1 

1 

l 

1 

1 

1 

X 1 
1 
1 
1 
1 
1 
1 

500. 


550. 


0 X 


600. 


0 X 


650. 


700. 


0 X 


750. 

1 

1 

1 

1 

1 

1 

1 

l 

1 

1 

1 

♦ 

♦ l 
1 
1 
1 
1 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

750. 


000 . 


850. 


900. 


550. 


600. 


650. 


700. 


600. 


050. 


900. 


VFLOCITY(W) VS. MERIDIONAL STREAMLINE DISTANCE (M) DOWN THE PAGE 


♦ - BLADE SURFACE 1« BASED ON MERIDIONAL COMPONENT 
% - BLADE SURFACE 1» BASED ON TANGENTIAL COMPONENT 
X - BLADE SURFACE 2* BASED ON MERIDIONAL COMPONENT 
0 - BLADE SURFACE 2* BASED ON TANGENTIAL COMPONENT 


Figure A.2.- 


Continued . 
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BLADE SURFACE PRESSURES FOR FULL WEIGHT FLOW 


IM 

M 

M/MC 

P(1)/PT 

P<2)/PT 

CPTCU 

CRT <21 

24 

0. 

O. 

.9994 

.9994 

-.6204E-03 

-.6204E-03 

25 

•5537E-02 

. 3 1 25E-0 1 

.7228 

• 8030 

-.2772 

-.1970 

26 

.1107F-01 

.6250E-01 

.7118 

.8167 

-.2882 

-.1833 

27 

• 1 661E-01 

• 9375E-0 1 

.7029 

.8338 

-.2971 

-.1662 

28 

• 2215E-01 

.1250 

.6939 

• 8446 

-.3061 

-.1554 

29 

« 2768E-01 

.1563 

.6879 

.8530 

-.3121 

-.1470 

30 

•3322E-01 

.1875 

.6869 

.6598 

-.3131 

-.1402 

31 

.3876E-01 

.2188 

.6901 

.8655 

-.3099 

-.1345 

32 

.4430E-01 

.2500 

.6967 

.8701 

-.3033 

-.1299 

33 

.4983E-01 

.2813 

.7072 

.8732 

-.2928 

-.1268 

34 

• 5537E-0 1 

.3125 

.7197 

.8763 

-.2803 

-.1237 

35 

•6091E-01 

.34 38 

.7305 

.8781 

-.2695 

-.1219 

36 

.6644E-01 

.3750 

.7387 

.8799 

-.2613 

-.1201 

37 

.7198E-01 

.4063 

.7469 

• 8806 

-.2531 

-.1194 

38 

•7752E-0 1 

.4375 

.7526 

.8812 

-.2474 

-.1188 

39 

• 8305E-01 

.4688 

.7582 

.8806 

-.2418 

-.1194 

40 

•8859E-01 

.5000 

.7613 

• 8801 

-.2387 

-.1199 

41 

.9413E-01 

.5313 

.7643 

.8790 

-.2357 

-.1210 

42 

•9967E-01 

.5625 

.7683 

• 8781 

-.2317 

-.1219 

43 

.1052 

.5938 

.7714 

.8784 

-.2286 

-.1216 

44 

.1107 

.6250 

.7750 

• 8784 

-.2250 

-.1216 

45 

.1163 

.6563 

.7787 

.8785 

-.2213 

-.1215 

46 

.1218 

.6875 

.7824 

.8783 

-.2176 

-.1217 

47 

.1274 

.7188 

.7858 

.8776 

-.2142 

-.1224 

48 

.1329 

.7500 

.7903 

.8768 

-.2097 

-.1232 

49 

.1384 

.7813 

.7930 

.8745 

-.2070 

-.1255 

50 

• 1440 

.8125 

.7961 

.8715 

-.2039 

-.1285 

51 

• 1495 

.8438 

.7997 

.8679 

-.2003 

-.1321 

52 

.1550 

.8750 

.8044 

.8638 

-.1956 

-.1362 

53 

• 1606 

.9063 

.8095 

.8585 

-.1905 

-.1415 

54 

.1661 

.9375 

.8167 

• 8484 

-.1833 

-.1516 

55 

.1716 

• 9688 

.8209 

.8129 

-.1791 

-.1871 

56 

.1772 

1.000 

.9527 

.9527 

-.4728E-01 

-.4728E-01 


SURF 1 


SURF 2 


XMSP 

XTHSP 

XMSP 

XTHSP 

• 15447E-03 

.10123E-02 

• 1 3539E-02 

-.1 0509E-02 

• 6437 IE-02 

•186?4E-0l 

.77497E-02 

. 15605E-0 1 

•156B6E-01 

.42414E-01 

.17291E-01 

• 37720E-0 1 

. 26880E-0 1 

.68304E-01 

•28984E-0 1 

.61 165E-0 1 

•42089E-01 

.97782E-01 

.44705E-01 

.87489E-01 

.58838E-01 

,12287E*00 

.61534E-01 

• 1 1 022E *00 

• 7687SE-0 1 

.14321E.00 

.79310E-01 

• 1291 7E*00 

•95927E-0 1 

. 15853E*00 

.97860E-01 

•14417E.00 

•1 1571E+00 

• 16866E*00 

• 1 1700E*00 

• 1551 3E*00 

.13592E*00 

• 1 7349E*00 

• 13656E *00 

• 16197E+00 

. 1521 9E*00 

• 1 7352E*00 

. 15237E + 00 

. 16445E*00 

. 16637E+00 

• 17077E+00 

• 1 6624E *00 

. 1 6445E *00 

• 17641E*00 

• 16724E+00 

. 17614E*00 

. 16322E*00 


OUTPUT FROM OBJCON 

Figure A .2.- Continued. 
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OBJECTIVE 1 

FUNCTION DIFFS 

s 

•A4594E+03 



WO 

3 

•49792E»03 



DIFFS/WO 

X 

• 16990E+Q1 

CONSTRAINT 

1 

BLTKS 

= 

• 4421 IE-02 

CONSTRAINT 

2 

YHAX 

- 

•65929E+03 



ymin 

X 

•44134E+03 



OIFFP 

X 

« 14938E*01 

CONSTRAINT 

3 

WMB (HBO-2 • 1 ) 

X 

•56124E*03 



WHB ( HBO-2* 2) 

X 

• 48960E*03 



TECLSR 

a 

•89556E+00 


Figure A. 


Continued. 
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final objective computed by TSONIC 


1.698965 


FINAL CONSTRAINT VALUES 


RLTKS 

DIFFP 

TECLSR 

44211E-0 2 

• 1 4938E+0 1 

•89556E+00 


X ARRAY 


.968750 

.937500 

.906250 

.875000 

.843750 

•812500 

.781250 

.750000 

.718750 

.687500 

.656250 

.625000 

.593750 

.562500 

.531250 

.500000 

.468750 

.437500 

.406250 

.375000 

.343750 

.312500 

.201250 

.250000 

.218750 

.187500 

.156250 

.125000 

.093750 

.062500 

.031250 

.031250 

.062500 

.093750 

.125000 

.156250 

.187500 

.210750 

.250000 

.281250 

.312500 

.343750 

.375000 

•406250 

•437500 

•468750 

.500000 

.531250 

•562500 

.593750 

•625000 

.656250 

.687500 

.718750 

•750000 

.781250 

•812500 

.843750 

.875000 

.906250 

.937500 

.968750 





LTRACE ■ 1 


Y ARRAY BEFORE PERTRB CALL 




566.953 

489.596 

468.231 

459.001 

452.816 

447.620 

443.724 

441.341 

441.690 

441.695 

442.577 

444.037 

445.975 

449.688 

452.173 

454.893 

459.487 

463.246 

468.972 

474.208 

461.593 

488.443 

497.947 

507.051 

519.736 

534.387 

551.407 

571.509 

596.015 

631.744 

659.289 

797.094 

813.197 

825.572 

837.975 

845.829 

845.941 

839.362 

827.555 

809.126 

787.101 

767.508 

751.752 

735.601 

722.997 

709.946 

700.748 

691 .827 

681 .542 

673.904 

666.048 

658.146 

650.419 

642.711 

632.308 

624.559 

615.941 

605.686 

592.951 

579.399 

561.240 

549.767 
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• COMPARISON OF AERODYNAMIC AND PERTURBATION SOLUTIONS * 


MACH NUMBERt 

VALUES OF PERTURBATION PARAMETERS. 
CRITICAL VALUE OF WM; 


M2 • 

• 1000 


02(1) 

■-8. 0297 

( KOCfi 

02(2) 

* .2000 

( T 

02(3) 

* .5500 

( ZM 

02(4) 

« .7356 

( P 

02(5) 

* .0363 

( TMX 

02(6) 

» .0039 

( thle 

WHCRIT *-66.8587 



...LOCATIONS OF MIN.. MAX.. AND CRITICAL PTS. 
(* DENOTES -POINT ON LOWER SURFACE) 


PERTURBATION SOLNl 


MINIMUM AT X ■ .7122* 

MAXIMUM AT X * *1194 


(POINT NO. 9) 
(POINT NO. 34) 


AERODYNAMIC SOLN: 


MINIMUM AT X > .7500* 

MAXIMUM AT X ■ .1075 


(POINT NO. 6) 
(POINT NO. 37) 


FINAL PRINTOUT AND GRAPHICAL DISPLAY OF WM 


H * MAXIMUM VALUE OF WM *845.9406 

L * MINIMUM VALUE OF WM *438.9010 

• * CRITICAL VALUE OF WM *-66.8587 

P * VALUE OF WM PREDICTED BY PERTURBATION SOLUTION 

A * VALUE OF WM IN AEROOYNAMIC SOLUTION 
$ * AGREEMENT BETWEEN P AND A 


PT XBASE WMBASE XPERT WMPERT XAERO WMAERO WMPINT H< 


>L 


1 .9687585.9460 

? .9375500.5262 

3 .9062475.3838 

4 .8750463.5379 

5 .8437455.4531 

6 .8125448.9545 

7 .7813444.0337 


.9680549.7994 

.9360492.2104 

.9041468.2692 

.0721457.5440 

•8401450.7826 

.8081445.5207 

.7761441.7684 


•9688566.9527551.1194 
•9375489.5955494.8503 
• 9063468 . 2308469 .9154 
.8750459.0015458.5273 
.8438452.8158451.5575 
•0125447.6203446.2512 
.7013443.7239442.3717 


A P 


PA 


S 


S 

s 


$ 

s 
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ft ■ 7500440*6925 
9 .7188438.6925 

10 •6875437,8173 

11 .6563439,1700 

12 .6250439,8327 

13 .5938441.0316 

14 .5625442.5981 

15 .5313445.5570 

16 .5000447.4626 

17 ,4688449.7452 

18 .4375453.7909 

19 .4063457.2295 

20 .3750462.5307 

21 .3438467.1474 

22 .3125473.4596 

23 .2813479.5215 

24 .2500487.9145 

25 .2188496.1051 

26 .1875508.1057 

27 .1563522.6991 

28 .1250540.8496 

29 .0938564.0343 

30 .0625599.0169 

31 ,0313632.8560 

32 .0313836.7472 

33 .0625848,1344 

34 .0937851.3453 

35 *1250846.1514 

36 • 1563834.5030 

37 .1875820.3078 

38 .2188805.2289 

39 .2500788.7474 

40 .2813770.7026 

41 .3125754.1898 

42 .3438739.2561 

43 .3750723.4856 

44 .4063710.8176 

45 .4375697.5629 

46 .4688688.7980 

47 .5000680.8503 

48 .5313671.6336 

49 .5625665.2669 

50 .5938658.7253 

51 .6250651.9964 

52 .6563644.9958 

53 .6875635.7344 

54 .7188629.2778 

55 .7500622.6299 

56 .7813615.5034 

57 .8125607.3548 
5fl ,8437597.2455 

59 .8750584.0971 

60 .9062567.1183 

61 .9375548.2492 

62 .9687533.5057 


.7441439.5594 
.7122438.7299 
•6802439.4101 
.6482441.5321 
.6162443,2946 
.5842445.5640 
.5522448.7173 
.5203452.6026 
.4883455.9259 
•4563460.4083 
.4243465.7523 
•3923471,6608 
.3603475,4134 
.3284488.9358 
.2964502.5190 
.2644512.6771 
.2324526.4762 
.2004541.5761 
.1684557.995 8 
.1365576.8714 
•1045600.2040 
.0725634.0712 
.0405662,5095 
.0085710.1042 
.0554812.4625 
.0874825,6826 
.1194830.3923 
.1498829.4847 
.1801829.0993 
.2105829.7257 
.2409829.2858 
.2712820.2590 
•3016805.2661 
.3320787.3683 
.3623770.2638 
.3927752.8141 
.4231738.3766 
.4534724.6654 
.4838713.7454 
.5142704.7421 
.5445694.3740 
.5749685.2170 
.6053677.2071 
.6356666.9914 
•6660660.6116 
•6963650.1146 
.7267642.4657 
.7571634.7305 
.7874626.6743 
.8178617.7636 
.8482607.1599 
.8785593.9676 
,9089577.5979 
.9393550.1110 
•9696571,0680 


•7500441.3408439.9645 

.7188441.6899438.9010 

.6875441.6948439.2542 

.6563442.5766440.9971 

.6250444.0366442.8098 

•5938445.9745444.8878 

.5625449.6875447,7054 

.5313452.1730451.2668 

.5000454.8932454.7072 

•4688459.4870458,6617 

.4375463.2464463.5475 

.4063468.9715469.0877 

.3750474.2081473.6932 

.3438481.5930482.4272 

•3125488.4431495.6698 

.2813497.9474507.3221 

.2500507.0512518.8856 

.2188519.7356532.9238 

.1875534.3871548.2109 

.1563551.4073565*1903 

.1250571.5092585.2300 

.0938596.0147611,5602 

.0625631.7438642.9552 

•0313659.2892676.2870 

.0313797.0941773.7523 

.0625813.1973815.3804 % 

.0938825.5723826,6141 S 

.1250837.9745830.2251 AP 

•1563845.8290829.4024 A P 

.1875845.9406829.2512 A P 

.2188839.3616829.6062 AP 

.2500827.5552826.5711 $ 

•2813809.1264815,3133 PA 

.3125787.1011798.8407 

.3438767.5078780.7293 

,3750751.7521762.9824 

•4063735.6008746.3690 

.4375722.9967731.8562 

.4688709.9455719.1542 

.5000700.7477708.9392 

.5313691.8266698.9053 

.5625681.5421688.9522 

•5938673.9036680.2410 

.6250666.0482671.8639 

.6563658.1457663.2973 

,6875650.4193653.1730 

.7188642.7110644.4714 

•7500632.3081636,5335 

.7813624,5586628.3174 

.8125615.9409619.3213 

•8437605.6857608,7046 

.8750592.9514595.5051 

• 9062579 . 3986579. 0288 

.9375561.2400551.7128 

.9687549.7669570.4574 


A P 


P 

P A 

P A 


P 

P A 

P A 
A 


P A 

P A 

P A 


P A 
P A 

PA 
P A 
PA 

PA 
P A 
PA 
PA 

PA 

S 

PA 

PA 

PA 

S 

PA 

S 

A P 
P A 


^P 


S 

S 

s 

s 

s 

s 

s 

s 

s 

PA 
PA 
P A 

P A 
A 


Figure A. 2.- Concluded. 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 

c 


c 

c 

c 

c 

c 


PROGRAM BLOOPT! INPUT, OUTPUT, TAPE5=INPUT,TAPE6=OUTPUT, 

• TAPE 1 »TAPE7,TAPE9»TAPE10 » TAPE 1 1 » TAPE 12 *TAPE1 3»TAPE19, 

* TAPE20.TAPE90) 

DRIVER PROGRAM FOR COPES OPTIMIZATION STUDY WITH OPTIONS 
FOR PERTURBATION METHOD USE. 

THE RELATIONSHIP AMONG PROGRAM COMPONENTS IS 
DRIVER 

- COPES 

- ANALIZ 

- BLADE ROUTINES 

- TSONIC ROUTINES 

- PERTRB ROUTINE 

- OBJCON 


PROGRAM OPTIONS 
IOPT = 1 - 


OPTIMIZATION USING TSONIC SOLUTIONS ONLY - 
PERTURBATION METHOD BYPASSED 

OPTIMIZATION WITH PERTURBATION METHOD EMPLOYING 
USER-SPECIFIED CALIBRATION SOLUTION MATRIX 
OPTIMIZATION WITH 1 CYCLE EMPLOYING TSONIC SOLUTIONS 
ONLY, FOLLOWED BY ITMAX CYCLES EMPLOYING 
PERTURBATION METHOD 


COMMON/CALB/ ICALB, DVCALB! 6 ) , PSTEP, IOPT, ITMAX3 , VZERO! 6 ) 
COMMON/CNMN 1 /DUM (1 2 ) , NO V , DUM 1 ( 6 ) , ITMAX , OUM2 ( 7 ) 
COMMON/COPES2/ RA( 5000 ) ,IAU 000 ) 

COMMON/COPE S3/DUM31 16 ) , LOCRl 25 ) , LOCK 25 ) ,0UM9l 1 9 ) 
COMMON/G LOBCM/ OBJ , V( 6 ) ,C( 5 ) , EXTRA! I486) 

IFLAGM 

CALL COPES! IFLAG 1 
IF ( IOPT.LT.3) STOP 

IOPT=3 CALCULATE CALIBRATION STEPSIZES, THEN PERFORM 
OPTIMIZATION WITH PERTURBATION SOLUTIONS 

NVLB=LOCR(2> 

NVUB=LOCR<3) 

CALL STEP! NDV»V»VZERO»DVCALB»RA( NVLB ) ,RA(NVUB ) ) 

ICALB-1 
ITMAX=ITMAX3 
DO 10 1=1 »NDV 
10 RA( I ) = 0 . 0 
IFLAG=2 

CALL COPES! IFLAG) 

STOP 

END 

SUBROUTINE STE P( NDV , V , VZERO , DVCALB , VLB , VUB ) 

ROUTINE TO CALCULATE CALIBRATION STEPSIZES FOR I0PT=3 
BASED ON DESIGN RESULTS AFTER 1 OPTIMIZATION CYCLE 
EMPLOYING TSONIC SOLUTIONS ONLY. 


DIMENSION V( 1 ) , VZERO! 1 ) , DVCALB! 1 ) ,VLB< 1 ) , VUB( 1 ) 
DO 20 1=1 i NDV 
P=V! I )-VZERO( I ) 

DVCALB ( I )=V( I )+0 . 5#P 

IFIDVCALB! I).LT.VLB(I)) DVCALB! I )=VLB( I ) 

IF( DVCALBt I ).GT. VUB! I ) ) DVCALB! I )=VUB( I ) 


IF ( ABS( V! I ) - VLB! I ) ) . LT . 1 .E-6) 

*» DVCALBt I) = 0.9*(VLB!I ) -VZERO! I ) )♦ VZERO! I ) 

IF! ABS! V( I ) - VUB! I ) ) . LT . 1 . E-6 ) 

* DVCALB! I ) = 0.9#( VUB! I l-VZERO! I ) )+VZERO( I) 

20 CONTINUE 

C 

RETURN 

END 

SUBROUTINE ANALIZ! ICALC ) 

C 

C INITIALIZES, CALCULATES, AND OUTPUTS ALL DESIGN 
C VARIABLES, OBJECTIVE FUNCTION, AND CONSTRAINTS FOR 
C OPTIMIZATION WITH COPES DRIVER, 

C 

COMMON/G LOBCM/ OBJ , V! 6 ) ,C( 5 ) , EXTRAt 1 968 ) 

COMMON /PERT/ Q0( 1 0 ) ,01 ,Q2( 1 0 > ,XM0 ,XM1 ,XM2 , NPTS ,KPARAM,NPARAM, 

* LTRACE 

COMMON /INPUTB/ A LP ,KICR , KOCR » NB , P , R , SOLID , T , TH LE » THTE » THX »ZM 
COMMON /MBIMBO/ MBI.MBO 
COMMON/INPUTA/ XMSPl 50,2) ,XTHSP( 50,2) 

COMMON /CALB/ ICALB , DVCALB! 6 ) ,PSTEP ,IOPT , ITMAX3 , VZERO! 6 ) 
DIMENSION X! 200 ) , Y( 200 ) , VVl 8 ) ,IDV( 6 ) , VNAME! 6 ) 

REAL KICR.KOCR 
LOGICAL NONLIN 

DATA XM0/0.1/, XM1/0.1/, XM2/0.1/ 

IF (ICALC ,GT. t ) GO TO 100 
C 

C ICALC = 1 READ INPUT AND INITIALIZE PARAMETERS 

C 

READ (5, 1025) COMENT 

READ (5,1005) IOPT , NDV ,NCN , ITMAX3 

NPARAM=NDV 

READ ! 5 , 1 0 1 0 ) NB,R , ALP, SOLID 
READ! 5,1020) t VV( I ) , 1=1 ,8 ) 

KICR=VV( 1 ) 

KOCR=VV! 2 ) 

T =VV( 3 ) 

ZM =VV( 9 ) 

P =VVI 5 ) 

TMX =VV! 6 ) 

THLE=VV! 7 ) 

THTE=VV! 8 ) 

READ! 5 1 1 025 ) ( VNAME l I ) , 1=1 , NDV ) 

READ! 5,1005) ( IDV! I ) ,1=1 ,NDV) 

DO 5 1=1 ,NDV 
J=IOV(I> 

V(I)=VV( J) 

5 VZERO! I ) = VV( J) 

READ! 5 , 1 01 0 ) ICALB, PSTEP 

IF ( ICALB . EQ . 0 ) GO TO 10 

READ! 5,1020) ( DVCALB! I ), 1= 1 , NDV ) 

10 CONTINUE 
C 

WRITE ( 6 , 1 000 ) 

WRITE! 6 , 1 055 ) IOPT, NDV, NCN, ITMAX3 
WRITE ( 6,1060) NB,R, ALP, SOLID 
WRITE ( 6,1065) (VV(I),I=1 ,0) 

WRITE! 6 , 1 070 ) t VNAME ( I ) , 1 = 1 ,NDV ) 

WRITE! 6,1072 ) ( V! I ) , 1 = 1 »NDV ) 

WRITE! 6 , 1 075 ) ICALB, PSTEP 


STEP 19 
STEP 15 
STEP 16 
STEP 17 
STEP 18 
STEP 19 
STEP 20 
STEP 21 
ANALIZ 2 
ANALIZ 3 
ANALIZ 9 
ANALIZ 5 
ANALIZ 6 
ANALIZ 7 
ANALIZ 8 
ANALIZ 9 
ANALIZ) 0 
ANALIZ1 1 
ANALIZ12 
ANALIZ13 
ANALIZ19 
ANALIZ1 5 
ANALIZ1 6 
ANALIZ1 7 
ANALIZ1 8 
ANALIZ1 9 
ANALIZ20 
ANALIZ21 
ANALIZ22 
ANALIZ23 
ANALIZ29 
ANALIZ25 
ANALIZ26 
ANALIZ27 
ANALIZ28 
ANALIZ29 
ANALIZ30 
ANALIZ31 
ANALIZ32 
ANALIZ33 
ANALIZ39 
ANALIZ35 
ANALIZ36 
ANALIZ37 
ANALIZ38 
ANALIZ39 
ANALIZ90 
ANALIZ91 
ANALIZ92 
ANALIZ93 
ANALIZ99 
ANALIZ95 
ANALIZ96 
ANALIZ97 
ANALIZ98 
ANALIZ99 
ANALIZ50 
ANALIZ5I 
ANALIZ52 
ANALIZ53 
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C 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


IF! ICALB.EQ. 0 ) GO TO 14 
WRITE (6.1 080 ) 1 1,1=1, NOV) 

WRITE! 6, 1065) ( DVCALBl I ) ,1 = 1 ,NDV ) 

14 CONTINUE 

ICALL=1 

JCALL=0 

KPARAM=0 

LTRACE=0 

N0NLIN=.T. 

IF ( IOPT. EQ. 2 ) NONLIN= . F . 

READ! 5, 1 025 ) COMENT 
CALL TSONIC 
NPTS=2*(MBO-MBI“ 1 ) 

IF1 IOPT.EQ. 1 ) GO TO 15 
READ! 5 , 1 025 ) COMENT 
CALL PERTRB! ICALL,X,Y) 

15 CONTINUE 
ICALL=2 
RETURN 

ICALC H 2 PERFORM OPTIMIZATION CALCULATION 

100 IF! ICALC. GT. 2) GO TO 200 
20 CALL DESVAR(VV,V,IOV,NDV, ICALL, KPARAM) 

WRITE! 6, 2000) NB,R , ALP, SOLID ,KICR ,KOCR ,T,ZM, P ,TMX, THLE , THTE 
CALL BLADE! 0) 

IF! .NOT.NONLIN) GO TO 22 

EMPLOY TSONIC SOLUTIONS, IOPT=1 OR 3 

CALL TSONIC 
CALL XY(X.Y) 

WRITE! 6 ,2005 ) (X! I ) , 1=1 ,NPTS ) 

WRITE! 6 ,2010 ) C Yt I ) , 1 = 1 ,NPTS ) 

CALL OB JCON! X , Y , OBJ , C ) 

RETURN 

EMPLOY BASE/CALIBRATION/PERTURBATION SOLUTIONS, IOPT=2 OR 3 
22 CONTINUE 

IF! ICALL.EQ.4 ) GO TO 24 
CALL T50HIC 
CALL XY! X, Y ) 

24 CALL PERVARIQ0,Q1 ,Q2,V, ICALL, KPARAM) 

CALL PERTRBt ICALLtX, Y ) 

IFt ICALL. EQ. 3) GO TO 26 
WRITE(6»2005) t X( I ) , 1=1 ,NPTS ) 

WRITE! 6 ,201 0 ) ! Y(I) ,1 = 1 ,NPTS) 

CALL OBJCON! X» Y ,OBJ ,C ) 

IF! ICALL. Eq. 4 ) RETURN 
ICALL=3 
26 CONTINUE 

KPARAM=KPARAM+1 

IF! KPARAM. LE.NPARAM) GO TO 20 

ICALL=4 

RETURN 


ANALIZ54 

AMALIZ55 

ANALIZ56 

ANALIZ57 

ANAIIZ58 

ANALIZ59 

ANALIZ60 

ANALIZ6 1 

ANALIZ62 

ANALIZ63 

AHALIZ64 

ANALIZ65 

AHALIZ66 

ANALIZ67 

ANALIZ66 

ANALIZ69 

ANALIZ70 

ANALIZ71 

ANALIZ72 

ANALIZ73 

ANA LIZ 74 

ANALIZ75 

ANALIZ76 

ANALIZ77 

ANALIZ78 

ANALIZ79 

ANALIZ60 

ANALIZ81 

ANALIZ82 

ANALIZ63 

ANALIZ64 

AHALIZ65 

ANALIZ66 

ANALIZ67 

ANALIZ88 

ANALIZQ9 

ANALIZ90 

ANALIZ91 

ANALIZ92 

ANALIZ93 

ANALIZ94 

ANAL1Z95 

ANALIZ96 

ANALIZ97 

ANALIZ98 

ANALIZ99 

ANA L1 1 00 

ANALI1 01 

ANALI102 

ANA LI 103 

ANALI104 

ANALI105 

ANALI106 

ANALI107 

ANALI 106 

ANALI109 

ANA LI MO 

ANALI1 11 


ICALC = 3 CONMIN TERMINATION AND FINAL SOLUTION DETERMINATION ANALI112 

ANALI1 13 


200 CONTINUE 

JCALL=JCALL + 1 

iniOPT.NE.3 .OR. JCALL.EQ. 2 ) GO TO 30 
NONLIN=. FALSE. 

RETURN 
30 CONTINUE 
LTRACE=1 

CALL DESVAR ( VV , V , 10 V , NDV , ICALL ,KPAR AM ) 
CALL BLADE! 1 ) 

CALL TSONIC 
CALL XY(X.Y) 


ANALI114 
ANALI1 1 5 
ANALI116 
ANALIt 1 7 
ANALI1 16 
ANALIt 1 9 
ANALI120 
ANALI121 
ANALIt 22 
ANALI123 
ANALI 1 24 


WRITE ( 6 , 1 050 ) ( XMSP! K , 1 ),XTHSP!K,1 ) ,XMSP(K,2 ) »XTH5P( K»2 ) ,K=1 ,13) AHALI125 
CALL OBJCON! X,Y ,OBJ , C ) ANALI126 
WRITE! 6,1030) OBJ ANALI127 
WRITE ( 6 , 1 035 ) ! C! I ) ,1 = 1 »NCN ) ANAL1 1 28 
IF! IOPT.EQ. 1) RETURN ANALI129 
WRITE! 6 1 2005 ) ( X! I ) ,1=1 ,NPTS ) ANALI130 
WRITE! 6 , 1 040 ) LTRACE , ( Ytl) , 1 = 1 ,NPTS ) ANALI1 31 
CALL PERVAR!Q0,Q1 ,Q2 ,V, ICALL, KPARAM ) ANALI132 
CALL PERTRB! ICALL »X,Y ) ANALI133 
RETURN ANALI 134 


1000 FORMAT! 1H1 ,35X,43H INPUT FOR CONTROL SUBROUTINE ANALIZ ) ANALI137 

1005 FORMAT! 1015) ANALI138 

1010 FORMAT (I10.3F10.6) ANALI139 

1020 FORMAT! 8F 10.0) ANALI 140 

1025 FORMAT! 6A1 0 ) ANALI141 

1030 FORMAT (37H1 FINAL OBJECTIVE COMPUTED BY TSONIC =,F10.6//) ANALI 142 

1035 FORMAT! 1H0,23HFINAL CONSTRAINT VALUES/10X,5HBLTKS,7X,5HDIFFP, ANALI143 

* 6X ,6HTECLSR/5X ,4E 12.5) ANALI 144 

1040 FORMAT!////* LTRACE =*,I3//* Y ARRAY BEFORE PERTRB CALL*/ ANALI 145 

% ! 5X*5F1 2.3)) ANALI 146 

1045 FORMAT!////* LTRACE =*,I3//* Y ARRAY AFTER PERTRB CALL*/ ANALI 147 

% (5X.5F12.3)) ANALI 146 

1050 FORMAT! ////I 2X,*SURF 1*,29X,*SURF 2*/ ANALI149 

% 5X ,*XMSP* , 1 1X,*XTHSP* , 1 5X»*XM5P* , 1 1X,*XTH5P*/ ANALI150 

% (2E15.5,5X,2E15.5)) ANALI151 

1055 FORMAT! //I HO , 4X* 1 8HCONTROL PARAMETERS/ ANAL1 152 

% 1 HO , 9X»6HIOPT =,I3»10X»5HNDV =,I3, 1 0X.5HNCN =,I3, ANALI153 

* 1 0X , 8HITMAX3 = ,133 ANALI154 

1060 FORMAT! //1HO ,4X ,25HC0N5TANT BLADE PARAMETERS/ ANALI155 

% 1 HO , 9X, 2HNB, 7X , 1 HR , 7X,3HALP, 7X ,5H50 LID/11 2 , 3F1 0 .4 ) ANALI156 

1065 FORMAT! // 1 HO ,4X , 2 5H VAR I ABLE BLADE PARAMETERS/ ANAL1 157 

% 1 HO , 9X » 4HKICR , 6X » 4HKOCR » 8X * 1 HT »8X , 2HZM, 8X , 1 HP , 9X » 3HTMX , ANALI158 

% 6X ,4HTHLE , 6X ,4HTHTE/5X ,8F 10.4) ANALI159 

1070 FORMAT! //I HO »4X , 2 3H ACTIVE DESIGN VARIABLES/! HO , 9X,6A1 0 ) ANALI160 

1072 FORMAT! 5X »6F1 0 .4 ) ANALI161 

1075 FORMAT! //1H0.4X.7HICALB =,I2,6X,7HPSTEP =,F6.3) ANALI162 

1080 FORMAT! 1HO ,4X,6HDVCALB/6I 1 2 ) ANALI163 

1085 FORMAT! 3X.6F12. 4) ANALI164 

2000 FORMAT! 1H1,// 46X,39H*** INPUT FOR BLADE ELEMENT PROGRAM *** // ANALI165 

*/ 49X ,5HINLET »4X»6H0UTLET,4X,6HTRANS. ,4X,7HMAX.TH . ,3X,6HIN/OUT,5X,ANALI166 
% 4HMAX. ,6X,4HL.E. ,6X,4HT.E. / 1 OX , 3HNO. ,6X»5HINLET,5X,4HCOME ,4X, ANALI167 
% 8HS0LIDITY ,4X,5HBLADE ,5X ,5HBLADE ,5X,4HL0C. ,6X,4HL0C. ,5X, 7HTURNINGANALI 1 68 
*,3X»6HTHICK. »5X»4HRA0. »6X,4HRAD. / 8X»6HBLADES,4X,6HRA0IU5,5X» ANALI169 

% 5HANGLE , 1 5X, 5HANGLE , 5X , 5HANGLE , 4X , 6H/CH0RD , 4X , 6H/CHORD , 5X , 4HR ATE , ANALI 1 70 
% 5X,6H/CH0RD,4X,6H/CH0RD,4X,6H/CH0RD / 20X»3H( L ) ,6X,5H( DEG ) , 15X, ANALI171 

* 5H( DEG ) , 5X ,5H( DEG ) // 9X, 13 , 3X, 3F1 0.5, F9. 3, FI 0 .4,6F 1 0.5 ) ANALI172 

2005 FORMAT!////* X ARRAY*/! 5X ,5F 1 2 . 6 ) ) ANALI173 
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20 t 0 

FORMATMHO,# Y ARRAY*/! 5X , 5F 1 2 . 3 >) 

ANALI1 74 


DIMENSION XI 200) ,Y( 200 ) 

XY 9 

C 



ANALI1 75 


ND2-M80-MBI - 1 

XY 10 



END 

ANAL 11 76 


DO 10 1=1 i ND2 

XY 11 



SUBROUTINE DESVAR (VV.V.IOV, NOV, ICALL, KPARAM) 

DESVAR 2 


X! I |=XMVWMBO-I ) 

XY 12 

C 



DE5VAR 3 


XIND2+I )=XMVN( MBI + I ) 

XY 13 

C 

IDENTIFIES DESIGN VARIABLES 

DESVAR 4 


Y ( I ) =WMB( MBO-I » 2 ) 

XY 14 

C 



DESVAR 5 


10 Y(ND2*I1=WMB<MBI*I»U 

XY 15 



REAL KICR.KOCR 

DESVAR 6 


RETUPN 

XY 16 



COMMON /CALB/ ICALB . OVCALB! 6 ) , PSTEP , IOPT , ITMAX3 , VZEPOt 6 ) 

DESVAR 7 


END 

XY 17 



COMMON /INPUTB/ ALP.KICR ,KOCR,NB,P,R , SOLID ,T ,THLE ,THTE , TMX ,ZM 

DESVAR 6 


SUBROUTINE 0BJC0N1 X,Y ,DIFFS,C) 

OBJCON 2 



DIMENSION VV( 1 2 ) , V! 1 ) , IDV< 1 ) 

DESVAR 9 


REAL KICR.KOCR 

OBJCON 3 



DO 10 1 = 1 > NDV 

DESVAR 10 


COMMON/INPUTA/ XMSP( 50,2) ,XTHSP( 50,2) 

OBJCON 4 



j=iovm 

DESVAR1 1 


COMMON /INPUTB/ALP,KICR,K0CR.NB,P,R, SOLID, T,THLE,THTE, TMX, ZM 

OBJCON 5 



VVt J)=V(I) 

DESVAR 1 2 


COMMON /MBIMBO/ MBI.MBO 

OBJCON 6 


10 

CONTINUE 

DESVAR 1 3 


COMMON/WIWO/WI ,W0 

OBJCON 7 



IF ( ICALL.NE.3) GO TO 20 

DESVAR 1 4 


COMMON/VARCOM/ADUM( 400 ) ,WMB( 1 00 , 2 ) , BDUMI 400 ) , IDUMI 1 00) 

OBJCON 8 



K=IDV( KPARAM ) 

DESVAR 1 5 


DIMENSION X! 200),Y( 200),C(5) 

OBJCON 9 



IF ( ICALB. EQ. 0 ) VV ( K ) = ( 1 . 0 + PSTEP )*VV( K ) 

DESVAR 1 6 

C 


OBJCONIO 





c 

CALCULATION OF OBJECTIVE FUNCTION 

OBJCON 1 1 



IFf ICALB. EQ.O) VV(K)=( 1 . 0 +PSTEP )#VVl K ) 

DESVAR 1 6 

c 


OBJCONt 2 



IF! ICALB. GT. 0 ) VV( K )=DVCALBl KPARAM ) 

DESVAR 17 


NOZ=MBO-MBI-1 

OBJCON1 3 


20 

CONTINUE 

0ESVAR18 


DIFFS=Y(ND2+1 ) 

OBJCON 1 4 



KICR=VV( 1 ) 

DESVAR 1 9 


ND2 1 =ND2 - 1 

OBJCON 15 



KOCR=VV(21 

DESVAR20 


DO 10 1=1 ,ND21 

0BJC0N16 



T =VV!3) 

DESVAR2 1 


10 IF(Y(ND2 + I I.GT.DIFFS) DIFFS = Y( ND2 + I ) 

OBJCON17 



ZM =VV(4> 

DESVAR2 2 


WRITE! 6 , 1 000 ) DIFFS.WO 

OBJCON 18 



P =VV!5) 

DESVAR23 


DIFF5=DIFF5/W0 

0BJC0N19 



TMX =VV(6) 

DESVAR 24 


WRITE! 6,1010) DIFFS 

OBJCONEO 



THLE=VV( 7) 

DESVAR25 

c 


OBJCON21 



THTE=VV l B ) 

DESVAR26 

c 

CONSTRAINT NO. 1 - BLADE THICKNESS 

OBJ CON 22 



RETURN 

DESVAR2 7 

c 


OBJCON23 



END 

DESVAR2S 


BCHORD = 2.*3.1415927*R*SOLID/F LOAT! NB ) 

OBJCON24 



SUBROUTINE PERVAR! QO ,Q1 ,02 ,V, ICALL , KPARAM ) 

PERVAR 2 


TEDI AM=2 . *THTE#BCHORD 

OBJCON25 

C 



PERVAR 3 


DTMIN= 1 . E 1 0 

OBJCON26 

C 

SETS VALUES OF DESIGN VARIABLES FOR USE IN 

PERVAR 4 


DO 20 1=2,12 

OBJCON2 7 

C 

PERTURBATION SOLUTION CALCULATION. 

PERVAR 5 


DRTH=( XTHSP! I , 1 )-XTHSP<I,2 ) )*R 

0BJC0N28 

c 



PERVAR 6 


DZ=XMSP( I » 1 )-XMSP( 1,2) 

OBJCON 2 9 



DIMENSION Q0( 1 ),Q2( 1 ),V( 1 > 

PERVAR 7 


OT=SQRT!DRrH«DRTH«DZ«OZ) 

0BJCON30 



COMMON /CALB/ ICALB , DVCA LB( 6 ), PSTEP , IOPT , ITMAX3 »VZERO( 6 ) 

PERVAR 8 


TKODTE=(DT-TEDIAM)/TEDIAM 

OBJCON31 



IF (ICALL .GT. 2) GO TO 20 

PERVAR 9 


20 IF! TKODTE . LT.DTMIN) DTMIN=TKODTE 

OBJ COM3 2 



DO 10 1=1 >6 

PERVAR 10 


BLTKS=OTMIN 

OB JCON33 


10 

Q0( I)=V( I ) 

PERVAR 1 1 


WRITE! 6 , 1 020 ) BLTKS 

OBJCON 34 



RETURN 

PERVAR 1 2 


Cl 1 )=BLTKS 

0BJC0N35 


20 

IF 1 ICALL .GT. 3) GO TO 30 

PERVAR 1 3 

c 


OBJCON 3 6 



IFf ICALB . EG. 0 ) Q1=(1. ♦ PSTEP )»V( KPARAM ) 

PERVAR 1 4 

c 

CONSTRAINT NO. 2 - PRESSURE SURFACE DIFFUSION 

08JC0N37 



IF t ICALB. GT.O ) Q1 =DVCALB( KPARAM ) 

PERVAR 15 

c 


0BJC0N38 



RETURN 

PERVAR 1 6 


A=ND2/2 

OBJCON39 


30 

DO 40 1=1,6 

PERVAR 1 7 


B=2.*N02/3 

OBJC0N40 


4 

Q2( I )=5( I ) 

PER5AR18 


N1 2=INT( A ) 

0BJC0N41 



RETURN 

PERVAR1 9 


N23=INT(B) 

OBJCON42 


40 

Q2( I ) = V( I ) 

PERVAR 1 6 


YMAX=Y( ND2 ) 

OBJCON43 



RETURN 

PERVAR 1 9 


YMIN= YMAX 

0BJC0N44 



END 

PERVAR20 


DO 30 I=N1 2 ,HD2 

OBJCON45 



SUBROUTINE XT(X,Y) 

XT 2 


30 IF! Y(I ) .GT.YMAX) YMAX=Y(I) 

OBJCON46 

c 



xr 3 


00 40 1=2, N23 

0BJC0N47 

c 

DETERMINES SURFACE VELOCITT AND SURFACE COORDINATE ARRAYS 

XY 4 


40 IF! Y( I ) .LT.YMIN) YMIN=Y( I ) 

0BJC0N48 

c 



XY 5 


DIFFP= YMAX/YMIH 

0BJC0N49 



COMMON /VARCOM/ ROULU 400 > > WMB! 1 00 , 2 > ,SDUM( 400 ) , IOUM! 1 00 ) 

XY 6 


WR ITE! 6 , 1 030 ) YMAX,YMIN,DIFFP 

OBJCON50 



COMMON /MVNORM/ XMVfUlOO) 

XY 7 


C! 2 ) = D I T F P 

OBJCON51 



COMMON /MBIMBO/ MBI.MBO 

XY 8 

c 


OBJCON52 
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C CONSTRAINT NO. 3 - TRAILING EOGE CLOSURE 

C 

ni=2*imbo-kbii- 3 
TECLSR=( Y(Nt )-Y(2))/80. 

WRITE (6,1040) YC N1 ),Y( 2) ,TECLSR 
C(3)=TECLSR 
C 

RETURN 

1000 FORMAT (////* OUTPUT FROM 0BJC0NV1 HO , 3X, 

• * OBJECTIVE FUNCTION* i 3X» *01 FFS =*,E12.5/ 

* 25X,*HD = * ,E1 2 .5 ) 

1010 FORMAT (25X,*DIFFS/WO =*,E12.5) 

1020 FORMAT 1 1HO »3X,*CONSTRAINT 1*, 9X,*BLTKS =»,E12.5) 

1030 FORMAT! 1 HO , 3X,*C0N5TRAINT 2*, 9X,*YMAX =*,E12.5/ 

» 25X r*YMIN =*,E12.5/ 

« 25X»*QIFFP =«,E12.5) 

10^0 FOHMATI 1HQ , 3X,*C0NSTRAINT 3*, 5X,*WMB( MBO-2 , 1 ) =*,E12.5/ 

* 21 X»*WMB( MBQ-Z > 2 ) =*,E12.5/ 

• 25X**TECL5R =*,E12.5> 

END 

SUBROUTINE PERTRB (ICALL.X.Y) 


SUBROUTINE PERTURB 


ICALL=1 ... READ INPUT AND PRINT CONTROL PARAMETERS. 
ICALL=2 ... PERFORM CALCULATIONS ON BASE SOLUTION. 


ICAIL=1 ...PERFORM CALCULATIONS ON CALIBRATION SOLUTION. 


ICALL=4 


RETURN PERTURBATION SOLUTION TO CALLING 
SUBROUTINE. 


DIMENSION XLOCOC6 ) , XL0CU6) ,XL0C2(6 ) ,XL0C3( 6 ) ,XFIX0( 8 ) »XFIX1 (8) 
DIMENSION LCR0( 4 ) » LCR1 ( 4 ) , LCR2( 4! * LCR3( 4 ) » ISEQ0( 8 ) ,ISEQ1 ( 8 ) 
DIMENSION HEAD0(5),HEAD1(5) ,HEAD2(5).HEAD3( 5) 

DIMENSION XOUTt 8) >DEL1t 10 ) ,ORDt 1 0 ) ,Xl 200 ) ,Y( 200 > 

DIMENSION FLAG! 0 ) ,STRING< 1 00 ) , STRUNK 1 00 ) 

REAL MO, Ml, M2 

COMMON /COEFF/ CUO ,71,0(10*7) ,QELX( 200 I 
COMMON /HEAD/ TITLE! 6 ) , JOBKEY 

COMMON /PARAM/ PARNAMl 1 0 ) • LSELCT! 6 1 , LUNIT * LPLOT ,NSELCT »A,B,VNAM( 
COMMON /PERT/ Q0( 1 0 ) ,Q1 >Q2( 1 0 ) ,M0 ,M1 ,M2 ,N,KPARAM » NPARAM , LTR ACE 
COMMON /HINMAX/ YMIN, YMAX, YCR2 
COMMON /SAVE/ XCSAVE! 1 0 , 200 ) , YC5AVEM 0 , 200 ) 

COMMON /XY/ XBASE! 200 ),XCALB( 200 ), XPERT! 200 I.XAEROt 200), 

X XUNIT! 200 ) , YBASE! 200 ) , YCALBt 200 ) , YPERT! 200 ) , YAERO! 200 ) , 

X YIMTP! 200 ) ,YPRTII 200 ) .DUMMY! 200 ) 

COMMON /XUYU/ XUSAVE! 1 0 , 200 ) , YUNITt 1 0 , 200 ) 

LEVEL 2, XC5AVE, YCSAVE, XUSAVE, YUNIT,C,D,DE LX 

LEVEL 2, XBASE, XCALB, XPERT, XAERO, XUNIT, YBASE, YCALB, YPERT, YAERO, 
X YINTP,YPRTI, DUMMY 
DATA LTERM/O/, LCORR/O/ 

DATA HEADO /4HBASE ,4H SOL ,4HUTI0,4HN» ,4H 

X HEAD1 /4HCALI , 4HBRAT »4HI0N ,4HS0LN,4H» 

X HEAD2 /4HPERT ,4HURBA,4HTI0N»4H S0L,4HN> 

X HEAD3 /4HAER0 »4HDYNA»4HMIC ,4H50LN,4H» 

DATA ORD /5H 1ST ,5H 2ND ,5H 3RD ,5H 4TH , 


/, 

/, 

/, 

/ 


OBJCON53 
OBJCON54 
QBJCON55 
OBJCON56 
0BJC0N57 
0BJC0N58 
0BJC0N59 
OBJCON60 
OBJCON6 1 
OBJCON62 
DBJC0N63 
0BJC0N64 
0BJC0N65 
OBJCON66 
OBJCON67 
0BJC0N68 
0BJC0N69 
OBJCON70 
0BJC0N71 
OBJCON72 
PERTRB t 
PERTRB 3 
■PERTRB A 
PERTRB 3 
PERTRB 4 
PERTRB 7 
PERTRB S 
PERTRB f 
PERTRB10 
PERTRB1 1 
PERTRB1 £ 
PERTRB1 3 
PERTRB1 A 
iPERTRBI 5 
PERTRB1 6 
PERTRB1 7 
PERTRB18 
PERTRB1 9 
PERTRB20 
PERTRB2 1 
PERTRB22 
PERTRB23 
PERTRB24 
2 JPERTRB25 
PERTRB26 
PERTPB27 
PERTRB26 
PERTRB29 
PERTRB30 
PERTRB31 
PERTRB32 
PER7RB33 
PERTRB34 
PERTRB35 
PERTRB36 
PERTRB37 
PERTRB38 
PERTRB39 
PERTRB40 
PERTRB41 


X 5H 5TH ,5H 6TH ,5H 7TH ,5H 8TH ,5H 9TH ,5H10TH / PERTRB42 

C PERTRB43 

C#W***WW****##rf*<###*W#*W»*#******#M»W#*«**W,,W*W****W#*«****#*W«**W««W«*p£ R -(pp4^ 

C PERTRB95 

C USER-SUPPLIED STATEMENT FUNCTION YCRIT(Z) DETERMINES CRITICAL PERTRB46 

C VALUES OF FLOW VARIABLE YCRIT AS FUNCTION OF FLOW PARAMETER Z. PERTRB47 

C IGRAD (+1 OR -1) IS THE USER-SUPPLIED ALGEBRAIC SIGN OF DYCRIT/DX PERTRB48 

C USED IN LOCATING THE CRITICAL POINT. PERTR049 

C PERTRB50 

C IN THE PRE5ENT VERSION OF THE CODE, YCRIT REPRESENTS THE FULL- PERTRBS1 

C POTENTIAL CRITICAL PRESSURE COEFFICIENT FOR AIR (GAMMA = 1.4), Z PERTRB52 

C IS THE FREE STREAM MACH NUMBER, AND IGRAD CORRESPONDS TO POSITIVE PERTRB53 

C PRESSURE GRADIENT 1+1). PERTRB54 

C PERTRB55 

YCRIT! Z)=2.0*( ( (2.0+0. 4*Z**2)/2. 4 )**(1 .4/0.41-1 .0)/! 1 ,4*Z**2) PERTRB56 

IGRAO= 1 PERTRB57 

C PERTRB58 

C*«***N**tt**««»M««tfft««Nft*»ftNtf«ff«tftf«*tfftN*«tf«N««ffKftttNfttfM«tfKNN»*«Mtf«M*K«NNMPERTRB59 
GO TO (501 ,502 ,503 ,504 ) , ICALL PERTRB60 

C PERTR861 

C INPUT CONTROL, GEOMETRY, AND STRAINING PARAMETERS. PERTRB62 

C PERTRB63 

501 CALL INPUT (NPARAM) PERTRB64 

C PERTRB65 

C WRITE TITLE AND INPUT PARAMETERS. PERTRB66 

C PERTRB67 

WRITE! 6 , 1 005 ) PERTRB68 

WRITE (6,1000) TITLE PERTRB69 

WRITE 16,1010) N>A,B, NPARAM PERTRB70 

C PERTRB71 

NFIX=N5ELCT+2 PERTRB72 

NSEG=NFIX-1 PERTRB73 

C PERTRB74 

C PRINT INFORMATION REGARDING STRAINING TO BE USED. PERTRB75 

C PERTRB76 

WRITE (6,1020) NFIX PERTRB77 

WRITE (6,1040) PERTRB78 

DO 20 1=1 ,NSELCT PERTRB79 

IF 1 LSELCTt I ) .EG. 1) WRITE (6,1050) VNAM PERTRB80 

IF (LSELCT(I) .Eq. 2) WRITE (6,1060) VNAM PERTRBSI 

IF (LSELCT(I) .LE. 2) GO TO 20 PERTRB02 

LCORR=1 PERTRB03 

LPR = LSELCT( I ) -2 PERTRB84 

WRITE (6,1070) VNAM, ORD ( LPR ) PER1RB85 

20 CONTINUE PERTRB86 

RETURN PERTRB07 

C PERTRB80 

C BEGIN CALCULATIONS ON BASE SOLUTION. PERTRBS9 

C PERTRB90 

502 YCR0=YCRIT(M0) PERTRB91 

WRITE (6,1080) HEADO PERTRB92 

WRITE (6,1090) VNAM PERTRB93 

WRITE (6,1100) MO PERTRB94 

IF (NPARAM .EG. 1) WRITE (6,1110) Q0( 1 ) , PARNAM( 1 ) PERTRB95 

IF (NPARAM .GT. 1) WRITE (6,1120) ! K»QQIK) tPARNAMIK ) ,K=1 , NPARAM) PERTRB96 

WRITE (6,1130) VNAM.YCRO PERTRB97 

C PERTRB98 

C NORMALIZE X COORDINATES AND LOCATE MINIMUM, MAXIMUM, AND CRITICAL PERTRB99 

C POINTS FOR BASE SOLUTION. PERTR100 

C PERTR101 
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CALL COPY12 (N.X, XBASE) 

CALL COPY 1 2 (NiY.YBASE > 

CALL SCALE (N, XBASE, 1 ,A,B) 

CALL LOCATE ( N, XBASE , YBASE , YCRO , IGRAD , LMNO , LMXO ,NCRO , LCRO .XLOCO ) 
YBCMIN=YBA5E( LMNO ) 

YBCMAX=YBASE( LMXO) 

WRITE (6,1140) 

WRITE (6,1150) 

CALL UPLOW (A»B,XLOCO *6>NCR0 + 2 »XOUT ,FLAG ) 

WRITE (6,1160) XOUT ( 1 ) , F LAGl 1 ) , LMNO , XOUT ( 2 ) » FLAG( 2 ) > LMXO 
IF (NCRO .GT. 0) WRITE (6,1170) NCRO, 

X ( ORD( I ) ,XOUT ( 1 + 2 ) i F LAGl I +2 ) , LCRO ( I ) , I = 1 ,NCRO ) 


LOAD SELECTED STRAINING POINTS INTO FIXED-POINT ARRAY FOR BASE 

SOLUTION. 

XFIXO( 1 ) = 0.0 

XFIXQ(NFIX)=1 .0 

DO 50 1=1 »NSELCT 

XFIXOI 1+ 1 )=XLOCO( LSELCT( I ) ) 

50 CONTINUE 


.ARRANGE SELECTED FIXED POINTS IN A MONOTONE SEQUENCE. 

CALL SORT ( NFIX»XFIXO , I5EQ0 ) 

WRITE (6,1200) 

WRITE (6,1150) 

CALL UPLOW ( A >B, XFIXO ,6 »NFIX ,XOUT ,F LAG ) 

WRITE (6,1210) ( I , XOUT( I ) ,FLAG( I ) , 1= 1 .NFIX) 

RETURN 

.BEGIN CALCULATIONS ON CALIBRATION SOLUTIONS. 


503 K=KPARAM 

YCR1 =YCPIT( Ml ) 

DELI ( K )=Q1 -Q0( K ) 

CALL COPY 1 2 ( N ,X , XCALB ) 

CALL COPY 1 2 (N,Y,YCALB) 

CALL COPYVA ( 1 ,N ,K .XCALB , XCSAVE ) 

CALL COPYVA ( 1 >N,K , YCALB , YCSAVE ) 

IF ( NPARAM .EQ. 1) WRITE (6,1080) HEAD1 

IF (NPARAM .GT. 1) WRITE (6,1220) ORO(K),HEAD1 

WRITE (6,1090) VNAM 

WRITE (6,1230) Ml 

IF (NPARAM .GT. 1) WRITE (6,1240) 

DO 60 KK=1 .NPARAM 

IF (NPARAM .EQ. 1) WRITE (6,1250) Q1 »PARNAM( 1 ) 

IF (NPARAM .GT. 1 .AND. KK .EQ. K) WRITE (6,1260) KK ,Q1 ,PARNAM( KK 
IF (KK .NE. K) WRITE (6,1270) KK ,Q0 ( KK 1 , PARNAM( KK ) 

60 CONTINUE 

WRITE (6,1130) VNAM , YCR1 

NORMALIZE X COORDINATES AND LOCATE MINIMUM, MAXIMUM, AND CRITICAL 

POINTS FOR KTH CALIBRATION SOLUTION. 


CALL SCALE ( N, XCALB , 1 , A , B ) 

CALL LOCATE ( N , XCALB , YCALB , YCR 1 , IGRAD , LMN1 , LMX1 ,NCR1 ,LCR1 ,XLOC1 ) 
YTMIN= YCALB( LMN1 ) 

YTMAX = YCALB( LMX1 ) 

IF ( YTMIN .LT. YBCMIN ) YBCMIN=YTMIN 


PERTR 1 02 
PERTR1 03 
PERTR1 04 
PERTR l 05 
PERTR 1 06 
PERTR 1 07 
PERTR1 00 
PERTR 109 
PERTR1 10 
PERTR 1 1 1 
PER TR 1 12 
PER TR 1 13 
PERTR 1 14 
PERTR1 15 
PERTR 1 16 
PERTR 1 1 7 
PERTR 1 18 
PERTR1 19 
PERTR1 20 
PERTR 1 2 1 
PERTR122 
PER TR1 23 
PERTRI 24 
PERTR 1 25 
PERTR 1 26 
PERTRI 27 
PERTRI 28 
PERTRI 29 
PEPTR130 
PERTR 1 31 
PERTR 1 32 
PERTRI 33 
PERTRI 34 
PERTRI 35 
PER TR 1 36 
PER (R 1 37 
PERTRI 38 
PERTRI 39 
PERTRI 40 
PERTR141 
PERTR 1 42 
PERTR 1 43 
PERTRI 44 
PERTR I 45 
PERTR 1 46 
PERTR 1 47 
PERTRI 48 
) PERTRI 49 
PERTR 1 50 
PERTR 1 51 
PERTR 1 52 
PERTRI 53 
PERTR 1 54 
PERTR 1 55 
PERTR 1 56 
PERTRI 57 
PERTRI 58 
PERTRI 59 
PERTR160 
PERTR161 


IF ( YTMAX .GT. YBCMAX ) YBCMAX = YTMAX 
WRITE (6,1140) 

WRITE (6,1150) 

CALL UPLOW ( A,B,XL0C1 ,6,NCR1 *2 , XOUT .FLAG ) 

WRITE (6,1160) XOUT( 1 ) ,F LAG( 1 ) , LMN1 , XOUT l 2 ) , FLAG( 2 ) , LMX1 
IF ( NCR 1 .GT. 0) WRITE (6,1170) NCR1 , 

V. ( QRD( I ).XOUT( I + 2),FLAG(I*2),LCR1(I),I = 1 ,NCR1 ) 

..CHECK FOR INVALID STRAINING SPECIFICATION. 


ICOUNT=0 

DO 70 1=1 .NSELCT 
IF ( LSELCTI I ) .LE. 2 ) GO TO 
I COUNT = I COUNT + 1 
IF (NCRO .NE. NCR1 ) LTERM= 1 
70 CONTINUE 


.STOP EXECUTION IF CRITICAL POINTS ARE TO BE USED IN STRAINING AND 
NUMBER OF CRITICAL POINTS IN BASE AND CALIBRATION SOLUTIONS ARE 
UNEQUAL. 

IF ( LTERM .EQ. 1) GO TO 900 

.STOP EXECUTION IF NUMBER OF CRITICAL POINTS SELECTED EXCEEDS 
NUMBER ACTUALLY LOCATED. 

IF (ICOUNT .GT. NCRO) GO TO 905 


.LOAD SELECTED STRAINING POINTS INTO FIXED-POINT ARRAY FOR KTH 
CALIBRATION SOLUTION. 

XFIXM 1 ) = 0.0 

XFIX1 ( NFIX > = 1.0 

DO 100 1=1 .NSELCT 

XFIXM IM ) = XLOCt( LSELCTI I )) 

100 CONTINUE 


.ARRANGE SELECTED FIXED POINTS IN A MONOTONE SEQUENCE. 

CALL SORT (NFIX.XFIX1 , ISEQ1 ) 

WRITE (6,1200) 

WRITE (6,1150) 

CALL UPLOW ( A,B,XFIX1 , 8, NFIX, XOUT, FLAG ) 

WRITE (6,1210) ( I , XOUT ( I ) , FLAG( I ) , 1= 1 ,NFIX ) 

.STOP EXECUTION IF ORDER OF OCCURRENCE OF CRITICAL POINTS IN BASE 
AND CALIBRATION SOLUTIONS DOES NOT CORRESPOND. 


DO 1 10 1=1 ,NFIX 

IF (ISEQO(I) .NE. ISEQMI)) GO TO 910 
110 CONTINUE 


.COMPUTE COEFFICIENTS IN KTH UNIT STRAINING OF XBASE 

XSTR = C( K , I ) + D<K,I)*XBASE, 1=1,2, ... ,NSEG, 
WHERE NSEG IS THE NUMBER OF LINEAR SEGMENTS. 

DO 130 1=1 ,NSEG 

CNUM=XFIXl ( I )#XFIX0( 1+ 1 1-XFIX1 ( 1+ 1 )«XFIX0( I ) 


PERTR162 
PERTR163 
PERTRI 64 
PERTRI 65 
PERTR166 
PERTRI 67 
PERTR 1 60 
PERTRI 69 
PERTRI 70 
PERTR 1 71 
PERTRI 72 
PERTP1 73 
PERTRI 74 
PERTRI 75 
PERTRI 76 
PERTRI 77 
PERTR I 70 
PERTRI 79 
PERTRI 80 
PERTR161 
PERTR182 
PERTRI 83 
PEPTR1 84 
PERTRI 85 
PERTRI 86 
PERTRI 87 
PERTR 188 
PERTRI 89 
PERTRI 90 
PERTRI 91 

PERTRI 92 
PERTRI 93 
PERTRI 94 
PERTRI 95 
PERTRI 96 
PERTRI 97 
PERTRI 98 
PERTRI 99 
PEPTR200 
PERTR201 
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PEPTR2 1 9 
PEPTR220 
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0NL'H=XFIX1 (1*1 )-XFIX1 f I ) PERTP222 

DEHCM=XFIXO( 1*1 )-XFIXO(I) PEPTP223 

C( K , I ) = CNUM/0EN0f1 PCP7PC29 

D( K, I )=DNUM/OEN0M PERTP225 

CONTINUE PLR1R226 

PEPTP227 

.DETERMINE KTH UNIT STRAINING OF XBASE. PERTP220 

PERTP229 

CALL STRAIN ( N ,K ,NSEG, XF 1X0 , XBASE , 1 . 0 ) PE9TR230 

DO 1 AO 1 = 1 »N PE D TR2 31 

XUNITl I )=XBASE( I )*DELX( I > PER TR2 32 

PERTR233 

.INTERPOLATE CALIBRATION SOLUTION TO BASE FLOW POINTS CORRESPOND I NGFER1R2 3^ 


TO UNIT STRAINING. 

CALL INTERP I N.XCALB, YCALB.XUNIT, YINTP ) 

.CORRECT VALUES ON EITHER SIDE OF CRITICAL POINTS, IF THESE ARE 
USED IN STRAINING. 

IF t LCORR .EQ. 0) GO TO 160 
DO 150 1=1, NCR 1 
YINTP(LCRO(I) )=YCALB( LCRUIM 
YIHTPf LCROl I )+ 1 ) = YCALBI LCRKD + 1 ) 

CONTINUE 

CONTINUE 

.DETERMINE THE KTH UNIT PERTURBATION. 

DO 170 1=1 ,N 

YUNIT( K 1 1 ) = 1 YINTPl I )-YBASE( I ) )/DELl 1 K ) 

.SAVE UNIT STRAINING IF REQUIRED FOR LATER PRINTOUT. 

IF (LUNIT .Eq. 01 GO TO 100 
CALL SCALE ( N.XUNIT , 2 , A , B > 

CALL COPYVA ( 1 ,M,K ,XUNIT .XUSAVE ) 

IF t KPARAM .LT. NPARAh ) RETURN 

.PRINT UNIT PERTURBATION S) AND UNIT STRAINING(S) IF LUNIT .NE. 

IF (LUNIT .EQ. 0) RETURN 
CALL SCALE ( N .XBASE , 2 , A ,B ) 

IRPT=0 

IF (NPARAM .GT. 5) IRPT=1 

KSTART= 1 

KST0P=5 

IF ( KSTOP .GT. NPARAM) KSTOP=NPARAM 

GO TO 200 

KSTART=6 

KSTOP=NPARAM 

CONTINUE 

WRITE (6,1200) VNAM 

IF (NPARAM .GT. 1) WRITE (6,1290) KSTART, KSTOP 
IF ( NPAPAM .EQ. 1) WRITE (6,1300) 

IF (NPARAM .EQ. 1 ) GO TO 210 
NUM=KSTOP-KSTART+1 

IF (MUM .EQ. 1) WRITE (6,1310) ( ORD( K ) ,K=KSTART , KSTOP ) 

IF (Nl'M .EQ. 2) WRITE (6,1 320) ( ORD(K ) ,K=KSTART , KSTOP ) 

IF (NUM .EQ. 3) WRITE (6,1330) ( ORD( K ) ,K=KSTART , KSTOP ) 
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IF (NUM .EQ. A) WRITE (6,1390) ( OPD( K ) ,K=KSTART, KSTOP ) 

IF (NUM .EQ. 5) WRITE (6,1395) ( ORD( K ) ,K=KSTART , KSTOP ) 

210 CONTINUE 

CALL FILL < 1 , 0 , STPUUI ) 

K LAST : 20* I KSTOP- K5T ART* 1 ) 

WRITE 16,1 350) l STRUNK K ) ,K=I ,KLAST ) 

WRITE (6,1360) 

DO 220 1=1 , N 

220 WRITE (6,1370) I , XBASE ( I ) , ( XUSAVE ( K , I ) , YUNITt K , I ) ,K = KSTART , KSTOP ) 
IF ( IPPT .EQ. 0) GO TO 230 
IPPT=0 
GO TO 1<J0 

230 CALL SCALE (N, XBASE, 1 ,A,B) 

RETURN 


.CONSTRUCT PERTURBATION SOLUTIONS FOR REQUIRED CASES. 


.INITIALIZE STRAINED COORDINATE AND PERTURBATION SOLUTION. 


DO 250 1=1 ,N 
XPERT ( I )=XBA5E( I ) 
250 YPERT( I ) = XBASE ( I ) 


.ADD IN CONTRIBUTIONS FROM ALL PERTURBATIONS. 


DO 270 K=1 .NPARAM 
DEL2 = Q2(K )-Q0(K) 

DEL21 =DEL2/DEL1 ( K ) 

CALL STRAIN ( N ,K ,NSEG , XFIXO , XBASE ,DE L2 1) 
DO 260 1=1 , N 

XPERTl I ) = XPERT( I )*DELX( I ) 

260 YPERT( I ) = YPERT( I ) +DE L2*YUNIT( K* I ) 

270 CONTINUE 


.ADJUST VALUES NEAR CRITICAL POINT FOR MONOTONE BEHAVIOR. 
IF (LCORR .EQ. 1) CALL MONO ( NCRO , LCRO .XPERT, YPERT ) 


.INTERPOLATE SOLUTION IN STRAINED COORDINATES TO BASE X VALUES. 


CALL INTERP ( N , XPERT , YPERT .XBASE .DUMMY ) 
CALL COPY21 (N, DUMMY, Y) 


IF (LTRACE.EQ.O) RETURN 


.COMPARISON OF PERTURBATION AND AERODYNAMIC SOLUTIONS. 


.LOCATE MINIMUM, MAXIMUM, AND CRITICAL POINTS IN PERTURBATION 
SOLUTION. 

CALL SCALE ( N , XPERT , 2 , A , B ) 

CALL SCALE (N, XPERT, 1 ,A,B) 

CALL LOCATE ( M , XPERT ,Y PERT ,YCR2 , IGRAD , LMN2 , LMX2 ,NCR2 , LCR2 ,XLOC2 ) 
YMIN = YPERT ( LMN2 ) 
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YMAX=YPERT( LMX2 ) 

YPCMIN=YMIN 
YPCMAX-YMAX 
WRITE 1 6 r t 300 ) 

WRITE (6,1090) VNAM 
WRITE (6,1390) M2 

IF ( NPARAM . EQ. 1) WRITE (6,1400) Q2( 1 ) , PARHAMt 1) 

IF (NPARAM .GT. 1) WRITE (6, 1410) ( K ,Q2( K ) , PARNAMf K ) ,K=1 , NPARAM ) 

WRITE (6,1130) VNAM.YCR2 
WRITE (6,1140) 

WRITE (6,1150) 

CALL UPLOW ( A,B,XLOC2 . 6 »NCR2+2 , XOUT , FLAG ) 

WRITE (6,1420) HEAD2,XOUT(l ) ,FLAG( I ) , LMN2 »XOUT( 2 ) , FLAG( 2 ) , LMX2 
IF (NCR2 .GT. 0) WRITE (6,1430) NCR2 , 

X ( ORD( I ) ,XOUT( 1 + 2), FLAG (1*2), LCR2 ( I ) , 1 = 1 ,NCR2 ) 

CALL SCALE ( N .XBASE , 2 , A , B ) 

C 

C LOCATE MINIMUM, MAXIMUM, AND CRITICAL POINTS IN AERODYNAMIC 

C SOLUTION. 

C 

CALL SCALE ( N, XAERO, 1 , A ,B ) 

CALL LOCATE ( N , XAERO , Y AERO , YCR3, IGR AD , LMN3 , LMX3 , NCR 3 , LCR 3 , X LOC 3 ) 
YMIN=YAERO( LMN3) 

YMAX=YAERO( LMX3 ) 

IF ( YMIN .LT. YPCMIN ) YPCMIN=YMIN 
IF ( YMAX .GT. YPCMAX) YPCMAX=YMAX 
CALL UPLOW ( A,B,XLOC3,6,NCR3*2,XOUT,FLAG) 

WRITE (6,1420) HEAD3,X0UT( 1 ) »FLAGt 1 ) , LMN3,XOUT( 2 ) »FLAG( 2 > , LMX3 
IF ( NCR 3 .GT. 0) WRITE (6,1430) NCR3, 

X ( ORD( I ) »XOUT( 1 + 2 ) ,FLAG( 1 + 2 ) , LCR3( I ) ,1 = 1 ,NCR3) 

CALL INTERP (N, XPERT, YPERT, XAERO, YPRTI ) 

CALL LOCATE ( N , XAERO , YPRTI , YCR 3 , IGR AD , LMN3, LMX3 »NCR3 , LCR 3 , XLOC3 ) 
YTMIN=YPRTI( LMN3 ) 

YTMAX=YPRTI( LMX3 1 
IF (YTMIN .LT. YMIN) YMIN=YTMIN 
IF (YTMAX .GT. YMAX) YMAX=YTMAX 
CALL SCALE ( N, XPERT ,2 , A, B ) 

CALL SCALE ( N, XAERO, 2 ,A,B ) 

CALL FILL (2,0, STRING) 

WRITE (6,1440) VNAM 

WRITE (6,1450) VNAM, YMAX, VNAM, YMIN, VNAM, YCR2, VNAM, VNAM 
WRITE (6,1460) VNAM, VNAM, VNAM, VNAM, l 5TRING( I ) ,1=1 , 72 ) 

DO 280 1=1, N 

CALL FILL (3, I, STRING) 

260 WRITE (6,1470) I .XBASE ( I ) , YBASEl I ) , XPERT ( I)»YPERT(I)» 

V, XAERO(I),YAERO(I ), YPRTK I ),( STRING! II ), 11 = 1 ,72) 

C 

C IF LPLOT .NE. 0 GENERATE PERIPHERAL PLOT OF PERTURBATION AND 

C AERODYNAMIC SOLUTIONS. 

C 

IF (LPLOT .EQ. 0) GO TO 320 

YMIN=YBCMIN 

YMAX=YBCMAX 

IF (YPCMIN .LT. YMIN) YMIN=YPCMIN 
IF (YPCMAX .GT. YMAX) YMAX= YPCMAX 
CALL DRVPLT ( N, NPARAM, YMIN, YMAX ,YCR2 ) 

320 CALL SCALE ( N .XBASE , 1 , A ,B ) 

RETURN 

C 

C ABNORMAL TERMINATION OF COMPUTATION. 
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C 

900 WRITE (6,9000) 

GO TO 999 
905 WRITE (6,9050) 

GO TO 999 
910 WRITE (6,9100) 

C 

999 WRITE (6,9500 ) 

STOP 

C 

C I/O FORMAT STATEMENTS FOLLOW. 

C 

1000 FORMAT ( 1 HO , 1 32 ( 1 H* )/ 

V. 1X,1H*,25X,8A10,25X,1H*/ 

V. I X > 1 32( 1 H* )/// ) 

1005 FORMAT! 1H1 ,35X,37H--- INPUT FOR PERTURBATION METHOD — //) 

1010 FORMAT ( 1 X , 29H LIST OF INPUT PARAMETERS// 

X 6X.3MN = , 14// 

V. 6X » 3HA = »F5 . 1 »4X, 3HB =,F5.1// 

X 6X,6HNPARAM =,I2///) 

1020 FORMAT MX,22H STRAINING OPTIONS// 

X 6X , 23HNUMBER OF FIXED POINTS:, 12/) 

1040 FORMAT (6X.45HFIXED POINTS WILL BE AUTOMATICALLY DETERMINED/ 

X 6X.44HBY THE PROGRAM FOR ALL SOLUTIONS AS FOLLOWS:// 

X 1 1 X, 14HTW0 END POINTS) 

1050 FORMAT ( 1 1 X , 1 6HPOINT OF MINIMUM , 1 X , 2A1 ) 

1060 FORMAT (11X,16HrOINT OF MAXIMUM , 1 X , 2A1 ) 

1070 FORMAT ( 1 1 X , 2A1 .6HCRIT ( , A5 .6HPOINT ) ) 

1080 FORMAT ( 1H1 ,26HRESULTS OF COMPUTATIONS ON, 1 X , 5A4/// ) 

1090 FORMAT (1X,17H MACH NUMBER,/ 

X 6X , 34HVALUES OF PERTURBATION PARAMETERS,/ 

X 6X , 1 7HCRITICAL VALUE OF , IX , 2A1 , 1 H « / ) 

1100 FORMAT ( 1 1X.4HMQ =,F7.4/) 

1110 FORMAT ( 1 1X.4HQ0 =,F10.4,5X,1H( , A8 , 1 H )/ ) 

1120 FORMAT ( 1 1 X , 3HQ0 ( , II , 3H ) = , F 1 0.4 ,5X, 1 H( ,A8,1H)/) 

1130 FORMAT ( 1 1 X , 2A1 , 6HCRIT =,F8.4///) 

1140 FORMAT MX.47H LOCATIONS OF MIN., MAX., AND CRITICAL PTS.) 

1150 FORMAT (3X.34HI* DENOTES POINT ON LOWER SURFACE)/) 

1160 FORMAT ( 6X » 1 4HMINIMUM AT X = , F 7 . 4 , A1 , 3X , 1 0H( POINT N0.,I4,1H>/ 
X 6X, 14HMAXINUM AT X = ,F7 . 4 , A1 , 3X , 1 0H( POINT N0.,I4,1H)) 

1170 FORMAT ( 6X, I 1 , 1 X, 1 6HCRITICAL POINT(S):/ 

X (9X,A5,6HAT X =,1X,F6.4,A1 ,3X, 

X 1 6H( AFTER POINT N0..I4.1H))) 

1200 FORMAT (///1X.29H LOCATION OF FIXED POINTS) 

1210 FORMAT ( 1 1 X, 5HXFIX( ,11 , 3H ) =,F7.4,A1) 

1220 FORMAT ( 1 Hi , 26HRESULTS OF COMPUTATIONS ON, IX, A5 ,5A4/// ) 

1230 FORMAT (11X.4HMI =,F7.4/) 

1240 FORMAT ( 2X,41H( DENOTES PERTURBATION FROM BASE VALUE)/) 

1250 FORMAT (11X,4HQ1 = ,F 1 0 .4 ,5X, 1H( , A8 , 1H )/ ) 

1260 FORMAT ( 9X , 5H**Q1 ( , 1 1 , 3H ) = , F 1 0 . 4 , 5X , 1 H ( , A8 , 1 H )/ ) 

1270 FORMAT MIX.3HQ1 ( ,11 ,3H ) = , F 1 0 . 4 . 5X . 1 H( , A8 . 1 H >/ ) 

1260 FORMAT MH1.20HUNIT PERTURBATION OF , 1 X.2A1 , IX, 

X 27HAND UNIT STRAINING OF XBASE) 

1290 FORMAT ( 26H FOR CALIBRATION SOLUTIONS , 12 , 1 X , 7HTHR0UGH , 12 ) 

1300 FORMAT (//1H ) 

1310 FORMAT (///I 9X, 1 ( 1 H* , A5 » 1 1 HCALB SOLN #,3X>) 

1 320 FORMAT ( ///I 9X, 2 ( 1H< , A5 , 1 1 HCALB SOLN * , 3X ) ) 

1330 FORMAT (///19X,3( 1 H* , A5 » 1 1HCALB SOLN ** , 3X )) 

1340 FORMAT (///19X,4( 1H*»A5»1 1 HCALB SOLN ** , 3X ) ) 

1345 FOPMAT ( ///l 9X,5( 1 H* , A5, 1 1HCALB SOLN »,3X)) 
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1350 FORMAT! 1X,5HP0INT,4X,5HXBASE,4X, 100A1 ) 

1360 FORMAT UX) 

1370 FORMAT 11X.I4, IX, 1 1 F10.4) 

1380 FORMAT C 1 H 1 * 56 < 1 H» )/lX»2H* , 

X 52HC0MPARI50N OF AERODYNAMIC AND PERTURBATION SOLUTIONS, 

2H #/1X,56(1H»>///) 

1390 FORMAT (11X,4HM2 =,F7.4/) 

1400 FORMAT M1X.4HQ2 = ,F7.4,5X, 1HI ,AB, 1H )/) 

141 0 FORMAT (11X,3HQ2( ,11 ,3H) =,F7.4,5X, 1H( , AS , 1H )/ ) 

1420 FORMAT (/6X.5A4// 

'/. 1 1X, 14HMINIMUM AT X = ,F7.4, A1 , 3X , 1 0H! POINT N0.,I4,1H)/ 

X 1 1X, 1 4HMAXIMUM AT X = , F7.4 , A1 , 3X, 1 0H( POINT N0.,I4,1H)) 

1430 FORMAT (1H , 1 0X, II , IX, 18HCRITICAL POINT(S)i/ 

'/. I 14X,A5»6HAT X =,F7.4,A1 ,3X, 

y. 16H! AFTER POINT N0..I4,1H))) 

1440 FORMAT !///1X,44H FINAL PRINTOUT AND GRAPHICAL DISPLAY OF, IX, 

y. 2ai i 

1450 FORMAT (/72X.21HH = MAXIMUM VALUE OF » 1X,2A1 , IX, 1H= , F8.4/ 

X 72X.21HL = MINIMUM VALUE OF , 1 X, 2A1 , IX, 1H= , F8.4/ 

X 72X.21H# = CRITICAL VALUE OF,1X,2A1 ,1X,1H=,F8.4/ 

’/. 72X.12HP = VALUE OF, JX,2A1 ,1X, 

34HPREDICTED BY PERTURBATION SOLUTION/ 
y 72X,12HA = VALUE OF , 1X»2A1 , IX, 

X 23HIN AERODYNAMIC SOLUTION/ 

72X.29H* = AGREEMENT BETWEEN P AND A) 

1460 FORMAT !/2X,2HPT,2X,5HXBASE ,3X, 2A1 .4HBASE ,2X,5HXPERT,3X,2A1 , 

'A 4HPERT ,2X,5HXAERO,3X,2A1 »4HAERO > 2X» 2A1 ,4HPINT, 1X.72A1/ ) 

1470 FORMAT ( 1X,I3,7F0.4,1X,72A1 ) 

C 

C ABNORMAL TERMINATION FORMATS FOLLOW. 

C 

9000 FORMAT ( ///IX, 28HNUMBER OF CRITICAL POINTS IN/ 

X IX, 30HBASE AND CALIBRATION SOLUTIONS/ 

X IX, 31 HARE UNEQUAL - CALCULATION ENDED 1 

9050 FORMAT ( ///I X , 25HNUMBER OF CRITICAL POINTS/ 

X 1X.23HSELECTED EXCEEDS NUMBER/ 

X IX, 30H ACTUALLY LOCATED - CALCULATION/ 

X 1X.5HENDED) 

9100 FORMAT (///1X.26H0RDER OF SPECIFIED POINTS IN/ 

X IX, 30HBASE AND CALIBRATION SOLUTIONS/ 

X IX, 39HDOES NOT CORRESPOND - CALCULATION ENDED) 

9500 FORMAT HH1 ) 

END 

SUBROUTINE COPY12 1N,XIN,XOUT) 

C 

C COPIES ELEMENTS OF VECTOR XIN (LEVEL 1) TO VECTOR XOUT (LEVEL 21. 

C 

DIMENSION XIN( 200 ) >XOUT( 200 ) 

LEVEL 2, XOUT 
DO 10 1=1, N 
10 XOUTC I )=XIN( I ) 

RETURN 

END 

SUBROUTINE C0PY21 (N, XIN, XOUT) 


C COPIES ELEMENTS OF VECTOR XIN (LEVEL 2) TO VECTOR XOUT (LEVEL 1). 

C 

DIMENSION XIN( 200 ) »XOUT( 200 ) 

LEVEL 2, XIN 
DO 10 1=1, N 


10 XOUT( I )=XIN( I ) 

RETURN 

END 

SUBROUTINE COPYVA ( ICALL ,N,K .VECTOR .ARRAY ) 

C 

C COPIES ELEMENTS OF VECTOR INTO KTH ROW OF ARRAY. 

C 

DIMENSION VECTOR! 200), ARRAY! 10,200) 

LEVEL 2, VECTOR, ARRAY 
IF (ICALL -EQ. 2) GO TO 20 
DO 10 1=1 ,N 

10 ARRAY(K,I)=VECTOR(I) 

RETURN 
20 CONTINUE 
DO 30 1=1, N 

30 VECTOR! I )=ARRAY(K»I ) 

RETURN 

END 

SUBROUTINE DRVPLT (N,NPARAM»YMIN»YMAX,YCR2 ) 

DIMENSION HLINE3! 3 ) ,XPLOT( 200 ) ,YPLOT( 200) 

COMMON /HEAD/ ZTITLE! 6 ) , JOBKEY 

COMMON /SAVE/ XCSAVE! 10,200) »YCSAVE! 10,200 ) 

COMMON /XY/ XBASE! 200 ),XCALB( 200), XPERT! 200 ),XAEROI 200), 

X XUHIT! 200 ) , YBASEl 200 ) , YCALB! 200 ) ,YPERT( 200 ) , YAEROt 200 ) , 

X TINTP( 200 ),YPRTI( 200), DUMMY! 200) 

LEVEL 2, XCSAVE, YCSAVE 

LEVEL 2, XBASE, XCALB, XPERT, XAERO.XUNIT.YBASE, YCALB, YPERT.YAERO, 
X YINTP.YPRTI, DUMMY 
DATA NPLOT /0/ 

IF (NPLOT .EQ. 0) CALL BETA 
MIN=10.0#!YMIN-0.1 ) 

MAX=10.0»( YMAX+0.1J 
YMIN=0 . 1 *MIN 
YMAX=0,1«MAX 
DO 20 K=1 .NPARAM 
NPLOT=NPLOT-1 

ENCODE ( 22, 1 01 0,HLINE3) K, NPARAM 
CALL BGNPL (-1 ) 

CALL MIXALF ("L/CST") 

CALL MX3ALF ( "INSTR M , ,, X M ) 

CALL SIMPLX 

CALL TITLE !1H ,1 ,1HX,1 ."XEO.SJCXEXIP)*", 100, 6.0,8.01 
CALL HEADIN ( "PLOT (OF) CXLO . 25H0 . 7! P >*"»1 00 ,3, 3) 

CALL HEADIN ( JOBKEY , 9,2 , 3 ) 

CALL HEADIN (HLINE3,22,2,3) 

CALL GRAF ( 0.0, "SCALE", 1 . 0.YMAX, "SCALE'*, YMINI 
CALL FRAME 

IF (YCR2 .GT. YMAX ) GO TO 10 
CALL RLVEC ( 0 . 0 , YCR2 , 0 . 2 , YCR2 , 0000 ) 

CALL RLMESS ( "CXL! PXBE! *)♦", 1 00 ,0 . 21 ,YCR2 ) 

10 CONTINUE 
CALL DASH 

CALL COPY21 (N, XBASE, XPLOT) 

CALL COPY21 (N,YBA5E»YPL0T ) 

CALL CURVE ( XPLOT .YPLOT.N, 0 ) 

CALL RESET ( "DASH" ) 

CALL DOT 

CALL COPYVA ( 2 ,N,K,XCALB, XCSAVE ) 

CALL COPYVA ( 2, N,K, YCALB, YCSAVE) 

CALL COPY21 (N.XCALB, XPLOT) 
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CALL C0PY21 fN.YCALB, YPLOT) 

CALL CURVE ( XPLOT , YPLOT ,N , 0 ) 

CALL RESET ("DOT") 

CALL MARKER ( 1 > 

CALL COPY2 1 (N, XPERT, XPLOT) 

CALL COPY21 (N.YPERT, YPLOT) 

CALL CURVE (XPLOT, YPLOT, N, -1 ) 

CALL RESET ( ,, MARKER ,, ) 

CALL COPY21 (N,XAERO, XPLOT) 

CALL COPY21 (N,YAERO , YPLOT ) 

CALL CURVE ( XPLOT , YPLOT ,N , b ) 

CALL ENOPL (NPLOT) 

20 CONTINUE 

1010 FORMAT (16HCALIBRATI0N NO. ,X1 OF ,11) 

RETURN 

END 

SUBROUTINE FILL ( ICALL , I , STRING ) 

C 

C FILLS ARRAY STRING WITH CHARACTERS FOR TABLE HEADINGS AND PRINTER 


DIMENSION STRING! 1 00 ) ,UNIT( 20 ) 

COMMON /PARAM/ PARNAM( 1 0 ) , LSE LCTt 6 ) , LUNIT , LPLOT , NSELCT , A ,B , VNAM( 2 ) 
COMMON /MINMAX/ YMIN, YMAX , YCR2 

COMMON /XY/ XBASE! 200 ),XCALB( 200), XPERT! 200 ),XAERO( 200 ), 

V. XUNIT( 200 ) , YBASE! 20Q),YCALB(200) , YPERT! 200 ) , YAEROl 200 ) , 

V, YINTP! 200 ) ,YPRTI( 200 ) ♦ DUMMY! 200 ) 

LEVEL 2, XBASE, XCALB, XPERT, XAERO.XUNIT, YBASE, YCALB, YPERT, YAERO, 

X YINTP,YPRTI, DUMMY 
DATA IENT /0/ 

DATA STAR/1 H#/> P/1HP/, AA/1HA/, OASH/1H-/, H/1HH/, EL/1 HL/, 

X BLANK/1 H /, DOLLAR/ 1 H$/ 

DATA UNIT /1HX, 1HS, 1HT , 1HR , 1HU, 1HN, 1HI , 1HT , 1H ,1H , 
y 1 H , 1 H , 1 H , 1HU, 1 HN , 1 HI , 1 HT , 1 H , 1 H ,1H / 

GO TO (10,30,50), ICALL 
10 IENT=IENT ♦ 1 

IF (IENT .GT. 1 ) RETURN 
UNIT! 1 2 )=VNAM( 1 ) 

UNIT! 13)=VNAM( 2 ) 

DO 20 J = 1 ,20 
DO 20 K=1 ,5 

II=J*Z0#1K-1 ) 

20 STRING! II )=UNIT(J) 

RETURN 

30 RANGE = YMAX- YMIN 
IFLAG=0 

IF tYCR2.GT.YMAX .OR. YCR2 . LT . YMIN ) IFLAG=1 
DO 40 11=1,72 
40 STRING! II) =OASH 
STRING! 1 )=H 
STRING! 72 ) = EL 
IF (IFLAG.EQ.1 ) RETURN 
NSTAR=1+(YMAX-YCR2)/RANGE*7! 

STRING! NSTAR)=STAR 
RETURN 
50 CONTINUE 

DO 60 11=1,72 
60 STRING! II )=BLANK 

IF ( IFLAG.E9.0 ) STRING! NSTAR ) = STAR 
YP=YPRTI(I) 


NPERT=1 + ( YMAX-YP )/RANGE*71 FILL 46 

STRING! NFERT)=P FILL 47 

YC= YAfRO! I ) FILL 40 

NCHEK=1 ♦( YMAX-YC)/RANGE*71 FILL 49 

STRING! NCHEK )=AA FILL 50 

IF (NPERT .EQ. NCHEK ) STRING! NPERT )=DOLLAR FILL 51 

RETURN FILL 52 

END FILL 53 

SUBROUTINE INPUT INPARAM) INPUT 2 

C INPUT 3 

C INPUT FOR SUBROUTINE PERTURB IS REQUIRED IN THE FOLLOWING FORM. INPUT 4 

C FOR DETAILS SEE ACCOMPANYING MANUAL. INPUT 5 

C INPUT 6 

C**»** ITEM NO. 1 - ONE CARD (6A10) waMfcKMKaawaKWHawKMKawwHiMKafcaitKwawnKaiNPUT 7 
C INPUT 8 

C TITLE IDENTIFIES JOB - PRINTED AS HEADLINE ON FIRST PAGE INPUT 9 

C OF OUTPUT. FIRST NINE CHARACTERS ARE USED TO INPUT 10 

C IDENTIFY PERIPHERAL PLOT. INPUT 11 

C INPUT 12 

c«*## ITEM NO. 2 - ONE CARD (1615) 13 

C INPUT 14 

C NSELCT NUMBER OF POINTS (IN ADDITION TO END POINTS) TO BE INPUT 15 

C HELD INVARIANT IN STRAINING. INPUT 16 

C NOTE* 1 .LE. NSELCT . LE . 6. INPUT 17 

C INPUT 10 

C LUNIT CONTROLS WHETHER OR NOT UNIT COORDINATE STRAINING! S UNPUT 19 

C AND UNIT PERTURBATION! S) ARE PRINTED. INPUT 20 

C INPUT 21 

C LUNIT = 0 ... NO OUTPUT INPUT £2 

C LUNIT =1 ... OUTPUT INPUT 23 

C INPUT 24 

C LPLOT SPECIFIES WHETHER OR NOT AN ADDITIONAL PLOT BY A INPUT 25 

C PERIPHERAL DEVICE IS TO BE MADE l SOFTWARE MUST BE INPUT 26 

C SUPPLIED BY USER IN SUBROUTINE DRVPLT ) . INPUT 27 

C INPUT 28 

C LPLOT = 0 ... NO PERIPHERAL PLOT INPUT 29 

C LPLOT = 1 ... PERIPHERAL PLOT INPUT 30 

C INPUT 31 

C*»»* ITEM NO. 3 - ONE CARD (1615) 32 

C INPUT 33 

C LSELCT(I) ... INPUT 34 

C ARRAY OF LENGTH 6 OF WHICH NSELCT ELEMENTS ARE READ INPUT 35 

C IN. SPECIFIES NATURE OF POINTS TO BE HELD INVARIANT INPUT 36 

C ACCORDING TO THE CODE INPUT 37 

C INPUT 30 

C 1 ... MINIMUM PT. HELD INVARIANT INPUT 39 

C 2 ... MAXIMUM PT. HELD INVARIANT INPUT 40 

C 3 ... 1ST CRITICAL PT. HELD INVARIANT INPUT 41 

C 4 ... 2ND CRITICAL PT. HELD INVARIANT INPUT 42 

C 5 ... 3RD CRITICAL PT . HELD INVARIANT INPUT 43 

C 6 ... 4TH CRITICAL PT. HELD INVARIANT INPUT 44 

C INPUT 45 

C NOTE THAT THE CODE NUMBERS CAN BE ASSIGNED IN ANY INPUT 46 

C ORDER, E.G. INPUT 47 

C INPUT 48 

C LSELCT! 1 ) = 1 INPUT 49 

C LSELCT! 2) = 3 INPUT 50 

C LSELCT! 3) = 4 INPUT 51 

C IIjnUT 52 

C IS EQUIVALENT TO • INFUT 53 



c 


INPUT 54 



GO TO 30 

INTERP1 4 

c 

LSELCTl 1 ) = 4 

INPUT 55 


10 

J = 1 

IHTERPI 5 

c 

LSELCTt 2 ) □ 1 

INPUT 56 



GO TO 60 

INTERP! 6 

c 

LSELCTl 3 ) = 3 

INPUT 57 


20 

J=N~ 1 

IN1ERP17 

c 


INPUT 58 



GO TO 60 

IHTERP1 8 

c 

BOTH CORRESPONDING TO NSELCT = 3 WITH THE MINIMUM, 

INPUT 59 


30 

CONTINUE 

INTERP1 9 

c 

AND FIRST AND SECOND CRITICAL POINTS HELD INVARIANT, 

.INPUT 60 



DO 50 J=JSTART,NM1 

INTERP20 

c 


INPUT 61 



IF (XKI) .NE. X(J)I GO TO 40 

INTERP2 1 

c«»«* 

ITEM NO. 4 - ONE CARD ( 2A1 ) 

•INPUT 62 



YI(I)=Y(J) 

INTERP22 

c 


INPUT 63 



GO TO 70 

INTERP23 

c 

VNAM CHARACTER STRING OF LENGTH 2 WHICH SYMBOLIZES 

INPUT 64 


40 

IF (XKI) .GT. X(J) .AND. XI(I) .LT. X(J*1)) GO TO 60 

INTERP24 

c 

DEPENDENT VARIABLE, E.G. "CP M FOR PRESSURE 

INPUT 65 


50 

CONTINUE 

INTERP25 

c 

COEFFICIENT. 

INPUT 66 


60 

SLOPE=< Y( J*1 )-Y( J ) )/( X ( J ♦ 1 )-X( J)) 

INTERP26 

c 


INPUT 67 



YU I ) = Y( J ) + SLOPE*( XKI)-X(J)) 

INTERP27 

Cffftftff 


•INPUT 68 



JSTART=J 

INTERP26 

c 


INPUT 69 


70 

CONTINUE 

INTERP29 

c 

PARNAM(K) ... 

INPUT 70 



RETURN 

INTERP30 

c 

ARRAY OF 6-CHARACTER STRINGS WHICH IDENTIFY THE 

INPUT 71 



END 

INTERP31 

c 

PARAMETERS VARIED. NPARAM ELEMENTS OF THE ARRAY 

INPUT 72 



SUBROUTINE LOCATE ( N , X , Y , YCRIT , IGRAD , LMIN , LMAX , NCRIT , LCRIT , XLOC ) 

LOCATE 2 

c 

ARE READ IN. 

INPUT 73 

C 



LOCATE 3 

c 


INPUT 74 

C. 

. . . 

.OPERATES ON THE INPUT ARRAY Y, LOCATING MINIMUM AND MAXIMUM 

LOCATE 4 



"INPUT 75 

c 


VALUES, AND ALL CRITICAL POINTS ( Y=YCRIT ) FOR WHICH DY/DX (IN 

LOCATE 5 

c 


INPUT 76 

c 


PHYSICAL COORDINATES) HAS ALGEBRAIC SIGN GIVEN BY IGRAD. NCRIT 

LOCATE 6 

c 

A SCALING PARAMETER (A = -X(1). WHERE XII) IS FIRST 

INPUT 77 

c 


IS NUMBER OF CRITICAL POINTS. POINTS FOUND ARE STORED IN THE ARRAYLOCATE 7 

c 

DATA POINT ON LOWER SURFACE ... SEE MANUAL). 

INPUT 78 

c 


XLOC AS FOLLOWS 

LOCATE 6 

c 


INPUT 79 

c 



LOCATE 9 

c 

B SCALING PARAMETER (B = X(N), WHERE XI N ) IS LAST DATAINPUT 80 

c 


XLOC(I) = MINIMUM PT. 

LOCATE1 0 

c 

POINT ON UPPER SURFACE ... SEE MANUAL). 

INPUT 81 

c 


XLOCl 2) = MAXIMUM PT. 

LOCATE 1 1 

c 


INPUT 82 

c 


XLOCl 3) = CRITICAL PT. NO. 1 

LOCATE 12 

CftffftMl 


•INPUT 83 

c 


... : ... 

LOCATE 13 

c 


INPUT 84 

c 


XLOCl 6 ) = CRITICAL PT. NO. 4 

LOCATE 14 


COMMON /HEAD/ TITLE! 8 ) , JOBKEY 

INPUT 85 

c 



LOCATE 15 


COMMON /PARAM/ PARNAMI 1 0 ), LSELCTl 6 ), LUNIT , LPLOT, NSELCT, A ,B,VNAM( 2 ) INPUT 86 



DIMENSION X( 200 ) , Y( 200 ) » LCRITt 4 ) ,XCRIT( 4 ) , XLOCl 6 ) 

LOCATE 16 


READ (5,900) TITLE 

INPUT 87 



LEVEL 2, X ,Y 

LOCATE 17 


DECODE (9,950, TITLEM )) JOBKEY 

INPUT 88 



COMMON /FLOREV/ IREV 

LOCATE 18 


READ (5,1000) NSELCT, LUNIT, LPLOT 

INPUT 89 



IFLOW=-1 

LOCATE 19 


READ (5,1000) ( LSELCTt I ) ,1=1 , NSELCT ) 

INPUT 90 



LMIN=1 

LOCATE20 


READ (5,1010) VNAM 

INPUT 91 



LMAX=1 

LOCATE21 


READ (5,1020) ( PARNAMd ) ,1=1 , NPARAM ) 

INPUT 92 



ISTART=2 

LOCATE22 


READ (5,1030) A,B 

INPUT 93 



IF (IREV .EQ. 0) GO TO 10 

LOCATE23 


RETURN 

INPUT 94 



LMIN=2 

LOCATE24 

900 

FORMAT (8A10) 

INPUT 95 



LMAX=2 

LOCATE25 

950 

FORMAT ( A9) 

INPUT 96 



I5TART=3 

L0CATE26 

1000 

FORMAT (1615) 

INPUT 97 


10 

CONTINUE 

LOCATE27 

1010 

FORMAT ( 2A1 ) 

INPUT 98 



NCRIT=0 

LOCATE28 

1020 

FORMAT ( 1 0A6 ) 

INPUT 99 



DO 30 I=ISTART,N 

L0CATE29 


1030 FORMAT 16F10.6) 

ENO 

SUBROUTINE INTERP l N,X» Y,XI ,TI ) 


INPUT1 00 
INPUT1 01 
INTERP 2 
INTERP 3 

GIVEN THE SET OF POINTS XII), Y(I), 1=1 ,N, AND THE SET XI(J), INTERP A 
J=1,N, USES LINEAR INTERPOLATION TO COMPUTE THE SET YKJ), J = 1,N. INTERP 5 

INTERP 6 

DIMENSION X( 200 ) , Y( 200 ) »XI( 200 ) , YI( 200 ) INTERP 7 
LEVEL 2, X.Y.XI.YI INTERP 0 
NM1 =N-1 INTERP 9 
JSTART=1 INTERP1 0 
DO 70 1=1, N INTERP11 
IF (XIII) .LE. X(1)J GO TO 10 INTERP1 2 
IF (Xim .GE. XI N ) ) GO TO 20 INTERP1 3 


IF (IREV .NE. 0 .AND. I .EQ. N) GO TO 20 
IF (Y(I) .GT. Y(LMAX)) LMAX=I 
IF I Y(I) .LT. Y(LMIN)) LMIN=I 
20 CONTINUE 

IF ((Yd) .GT. YCRIT .AND. Yd-1 ) .GT. YCRIT ) .OR. 

V. (Yd) .LT. YCRIT .AND. Yd-1) .LT. YCRIT)) GO TO 30 
IF (I .GT. IREV) IFLOW=1 

IF ((Yd )-Y( 1-1 ) )#FLOAT( IFLOW»IGRAD ) .LT. 0.0) GO TO 30 

NCRIT=NCRITM 

LCRITt NCRIT ) = I-1 

5L0PE=ixi i i-xt i-i ) l/mn-Yd-i )) 

XCRIT( NCRIT )=X( 1-1 ) +SLOPEM YCRIT-Y(I-1 )) 

30 CONTINUE 

XLOCl 1 )=X( LMIN ) 


L0CATE30 

LOCATE31 

LOCATE32 

LOCATE33 

L0CATE34 

L0CATE35 

L0CATE36 

L0CATE37 

L0CATE38 

LOCATE39 

LOCATED 

L0CATE41 

LOCATE42 

LOCATED 


H 

<J\ 

U1 
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XLOCI 2 )=X( LMAX ) 

IF I NCRIT . EG. 0) RETURN 
DO 40 1=1 , NCRIT 
40 XLOCI I+2)=XCRIT(I) 

RETURN 

END 

SUBROUTINE MONO (N.L.X.Y) 

C 

C CHECKS POINTS IN VICINITY OF A CRITICAL POINT FOR MONOTONE 

C BEHAVIOR. AND ADJUSTS VALUES IF NECESSARY TO GIVE A LINEAR 

C PROFILE. 

C 

DIMENSION L( 4 ) ,X( 200 ) , Y( 200 ) 

LEVEL 2, X.Y 
DO 10 1=1 ,N 
LS=Ll I ) 

Y1=Y( LS-1 ) 

Y2=Y( LS) 

Y3=Yt LS+1 ) 

Y4 = Y( LS + 2 ) 

IF KYI .LT. Y2) .AND. ( Y2 . LT. Y3) .AND. (Y3 .LT. Y4 ) ) GO TO 10 
IF KYI .GT. Y2 ) .AND. I Y2 .GT. Y3) .AND. (Y3 .GT. Y4 ) ) GO TO 10 
Xt=X(LS-1 1 
X2=X( LS) 

X3=X( LS+1 ) 

X4=XI LS+2 ) 

SLOPE=l Y4-Y1 )/( X4-X1 ) 

Y( LS )=Y1 ♦SLOPE*! X2-X1 ) 

Y( LS+1 ) = Y1+SLOPE*(X3-XI ) 

10 CONTINUE 
RETURN 
END 

SUBROUTINE SCALE (N.X.M.A.B) 

C 

C ENTRY WITH M = 1 CONVERTS FROM PHYSICAL X ( 0 TO -A ON LOWER 

C SURFACE, 0 TO B ON UPPER SURFACE) TO NORMALIZED X (0 .LT. X .LT. 

C 1) ENTRY WITH M=2 REVERSES THE PROCESS. NZ (DETERMINED WHEN M=1 ) 

C CORRESPONDS TO POINT AT NOSE OF BLADE OR AIRFOIL. 

C 

COMMON /FLOREV/ NZ 
DIMENSION XI 200) 

LEVEL 2, X 

IF (M .EQ. 2) GO TO 30 

CONTINUE 

NZ=0 

DO 10 1=2, N 

IF (XII) .LT. XC 1-1 ) ) NZ=I 
10 CONTINUE 
DO 20 1=1 ,N 
IF I I . LE. NZ) T=-X(I) 

IF (I .GT. NZ) T=X(I) 

XI I) = (T-A)/(B-A) 

20 CONTINUE 
RETURN 

30 00 40 1=1 ,N 

XI I ) =ABS( ( B-A )#Xt I )+A ) 

40 CONTINUE 
RETURN 
END 

SUBROUTINE SORT <N,X,ISEQ) 


L0CATE44 

C 



SORT 3 

L0CATE45 

C. 


ARRANGES THE SET XU), X(2), ... , XIN) IN A MONOTONE INCREASING 

SORT 4 

L0CATE46 

C 


SEQUENCE. ISEQ GIVES ORDER OF SUBSCRIPTS IN REARRANGED SEQUENCE. 

SORT 5 

L0CATE47 

C 



SORT 6 

LOCATE40 



DIMENSION X( 6 ) »ISEQ( 6 ) 

SORT 7 

L0CATE49 



NM1 =N- 1 

SORT 8 

MONO 

Z 



00 10 1=1 ,N 

SORT 9 

MONO 

3 


10 

ISEQI I )=I 

SORT 10 

MONO 

4 


20 

ITEST=Q 

SORT 11 

MONO 

5 



DO 30 1=1 ,NM1 

SORT 12 

MONO 

6 



IF (X(I) .LE. X(I+U1 GO TO 30 

SORT 13 

MONO 

7 



XSAVE=X( I) 

SORT 14 

MONO 

S 



XI I )=X(I + 1 ) 

SORT 15 

MONO 

9 



XI 1 + 1 )=XSAVE 

SORT 16 

MONO 

10 



ISAVE = ISEQ( I) 

SORT 17 

MONO 

11 



ISEQI I) = ISEQI 1+1 ) 

SORT 18 

MONO 

1 1 



ISEQI 1+1 ) = ISAVE 

SORT 19 

MONO 

13 



ITEST=1 

SORT 20 

MONO 

14 


30 

CONTINUE 

SORT 21 

MONO 

15 



IF (ITEST .EQ. 1 ) GO TO 20 

SORT 22 

MONO 

16 



RETURN 

SORT 23 

MONO 

17 



END 

SORT 24 

MONO 

10 



SUBROUTINE STRAIN l N , K , NSEG , XF IX , XIN . PARM ) 

STRAIN 2 

MONO 

19 

c 



STRAIN 3 

MONO 

20 

c. 


.COMPUTES STRAINING INCREMENT DELX FROM INPUT ARRAY XIN, USING 

STRAIN 4 

MONO 

21 

c 


PIECEWISE LINEAR STRAINING WITH N5EG LINEAR SEGMENTS. FOR UNIT 

STRAIN 5 

MONO 

22 

c 


STRAINING, INPUT VALUE OF PARM IS 1.0; FOR GENERAL CASE, 

STRAIN 6 

MONO 

23 

c 



STRAIN 7 

MONO 

24 

c 


PARM □ (Q21K >-Q0(K) )/<Q1-Q0(K) ). 

STRAIN 0 

MONO 

25 

c 



STRAIN 9 

MONO 

26 



DIMENSION XFIX(B),XIN( 200) 

STRAIN1 0 

MONO 

27 



COMMON /COEFF/ C( 1 0 , 7 ) ,D( 1 0 , 7 ) ,DELX( 200 ) 

STRAIN1 1 

SCALE 

2 



LEVEL 2, C,D, DELX, XIN 

STRAIN12 

SCALE 

3 



JSTARTU 

STRAIN! 3 

SCALE 

4 



DO 30 1=1 »N 

STRAIN! 4 

SCALE 

5 



DO 10 J=JSTART ,N5EG 

STRAIN1 5 

SCALE 

6 



IF (XINII) . GE . XFIXIJ) .AND. XIN(I) .LE. XFIXIJ + D) GO TO 20 

STRAIN! 6 

SCALE 

7 


10 

CONTINUE 

STRAIN1 7 

SCALE 

0 


20 

DELX I I )=PARM*( CCK,J) + (D(K,J)-1.0 )#XIN( I ) > 

STRAIN! 8 

SCALE 

9 



JSTART=J 

5TRAIN1 9 

SCALE 

10 


30 

CONTINUE 

5TRAIN20 

SCALE 

11 



RETURN 

5TRAIN2 1 

SCALE 

12 



END 

5TRAIN22 

SCALE 

13 



SUBROUTINE UPLOW I A , B , XIN , K , N , XOUT , F LAG ) 

UPLOW 2 

SCALE 

14 

c 



UPLOW 3 

SCALE 

15 

c. 


.CONVERTS NORMALIZED ARRAY XIN TO PHYSICAL ARRAY XOUT AND FLAGS 

UPLOW 4 

SCALE 

16 

c 


POINTS ON LOWER SURFACE WITH A "a’'. 

UPLOW 5 

SCALE 

17 

c 



UPLOW 6 

SCALE 

10 



DIMENSION XINI K ) »XOUT I 0 ) 

UPLOW 7 

SCALE 

19 



DIMENSION FLAG! 8 ) 

UPLOW a 

SCALE 

20 



DATA BLANK/1H /, STAR/1H*/ 

UPLOW 9 

SCALE 

21 



XNOSE=-A/( B-A ) 

UPLOW 10 

SCALE 

22 



DO 10 1=1 ,N 

UPLOW 11 

SCALE 

23 



FLAG! I ) =BLANK 

UPLOW 12 

SCALE 

24 



IF (XINII) .LT. XNOSE ) FLAG! I )=5TAR 

UPLOW 13 

SCALE 

25 



XOUT! I )=ABS( ( B-A )*XIN( I )+A ) 

UPLOW 14 

SCALE 

26 


10 

CONTINUE 

UPLOW 15 

SCALE 

27 



RETURN 

UPLOW 16 

SCALE 

20 



END 

UPLOW 17 

SORT 

2 



SUBROUTINE TSONIC 

T50HIC 2 
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C 

C 

C 

C 


COMMON NREAD, NWRIT, ITER, IEND.LER! 2), NERl 2) TSONIC 

COMMON /INPUTT/ GAM ,AR , TIP .RHOIP >HTF L .OMEGA ,ORF .BETAI .BETAO, TSONIC 

1 LAMBDA, RVTHO, REDFAC, DENTOL,FSMI,FSMO,SSMI , S5M2 »NBI *MPO ,MM , TSONIC 

2 NBBI , NBL ,NRSP , MOPT , LOPT, LRVB , BLDAT , AAHDK , ERSOR , 5TRFN , SLCRD , TSONIC 

3 IHTVL, SURVL , CHORD ( 2),STGR(2)>RI(2),RO(2)»BETI(2),BETO(2), TSONIC 

4 NSPK 2 ) , TITLEK 20 ) ,MR( 50 ) ,RMSP( 50 ) ,BESPF I 50 ) ,WOWCR( 50 ) , TSONIC 

5 PLOSSt 50 ),M5P(50»2)»TH5P(50,2) TSONIC 

COMMON /CALCON/ ACTWT , ACTOMG , ACTLAM , MBIMt .MBIP1 ,MBOM1 ,MBOP1 ,MMM1 , TSONIC 

1 HM1 ,HT,DTLR,OMLR, PITCH, CP, EXPON ,THW,CPTIP , TGROG , TBI , TBO , TWL , TSONIC 

2 WI ,WMI »WCRI » ITMIN, ITMAX,NIP,IMSt ,IMS2,IMS( 2 ) »BV( 2 ) ,MIE( 2 ) » TSONIC 

3 THLE! 2 ) ,RMIt 2 ) ,PMO( 2 ) ,BE5P( 50 ) ,MV( 1 00 ) »RMl 1 00 ) » BE ( 1 00 1 • TSONIC 

4 BEF! 1 00 ) *DB0M( 1 00 ) ,DBF0M( 1 00 ) ,SAL( 1 00 ) , PLOSIMl 1 00 > , AAA! 1 00 ) , TSONIC 

5 BBBt tOO I ,IV( 101 ),ITV(100,2)»TV(100»2) ,DTDMV( 100,2), TSONIC 

6 BETAV! 100,2 ) ,MH( 100*2), DTDMHt 100,2 ),BETAH( 100,2),RMH( 100,2 ) » TSONIC 

7 BEH! 100,2 ),PLOSMH( 100.2) TSONIC 

COMMON /AUKRHO/ A! 2500 ,4) ,Ut 2500 ) ,Kl 2500 ) ,RHO( 2500 ) TSONIC 

LEVEL 2, A,U,K»RHO TSONIC 

COMMON /HRBAAK/ HU ) ,Rl 4 ) ,B( 4 ) ,KAKt 4 ) ,KA( 4 ) ,RZ , BZ , IH( 4 ) TSONIC 

COMMON /VARCOM/ RHOHB! 100,2) »RHOVB! 100,2 > , WMB( t 00 » 2 ) , HTB! 100*2), TSONIC 

1 WWCRM! 100,2), LABEL! 1 ,100) TSONIC 

COMMON /SLCOM/ USUI 00 , 1 1 ) , TSL( 1 00, 1 1) TSONIC 

LEVEL 2, USL»TSL TSONIC 

COMMON /BCDCOM/ INIT( 2 ) ,EM( 50,2 ) >D2TDM2( 100,2) TSONIC 

COMMON /PLTCOM/ TSLPT{11 00 ) ,XDDWN( 400 ) , YACROSI 400 ) TSONIC 

LEVEL 2, TSLPT »XDOWN» YACROS TSONIC 

INTEGER BLOAT , AANDK , ERSOR , STRFN , SLCRD , SURVL , AATEMP, SURF .FIRST , TSONIC 

1 UPPER, SI, ST TSONIC 

REAL K.KAK, LAMBDA, LMAX.MH.MLE, MR, MSL, MSP, MV, MVIM1 TSONIC 

DATA ICALL/O/ TSONIC 

ICALL=ICALL*1 TSONIC 

IEND=-1 TSONIC 

ITER = 0 TSONIC 

INIT( 1 ) = 0 TSONIC 

INI T ( 2 ) = 0 TSONIC 

CALL TINPUT TSONIC 

IF! ICALL.EQ.1 ) RETURN TSONIC 

IF ( BLOAT. GE. 2 ) CALL BLOPLT TSONIC 

CALL PRECAL TSONIC 

30 ITER = ITER* 1 TSONIC 

CALL COEF TSONIC 

CALL SOR TSONIC 

CALL VELMER TSONIC 

CALL VELTAN TSONIC 

CALL STRLIN TSONIC 

CALL OUTPUT TSONIC 

IFINER12KGT.0) RETURN TSONIC 

IFIIEND.LE.O) GO TO 30 TSONIC 

IFIREDFAC.LT. I . ) CALL TVELCT TSONIC 

RETURN TSONIC 

END TSONIC 

SUBROUTINE TINPUT INPUU 

INPUU 

INPUT READS ANO PRINTS ALL INPUT DATA CARDS AND CALCULATES HORIZONTALINPUU 
SPACING (MV ARRAT) INPUU 


COMMON NREAD , NWRIT, ITER , IEND , LERI 2 ) ,NER( 2 ) 

COMMON /INPUTT/ GAM, AR .TIP, RHOIP, HTF L. OMEGA ,ORF ,BETAI .BETAO, 

1 LAMBDA »RVTHO»REDFAC , DENTOL, F5MI ,F5M0 ,S5M1 ,SSM2,MBI,MBO,MM, 

2 NBBI , NBL, NR5P, MOPT , LOPT , LRVB , BLDAT .AANDK . ERSOR , STRFN , SLCRD , 

3 INTVL, SURVL, CHORD! 2 ) .STGR1 2 ) ,RI! 2 ) ,RO( 2 ) ,BETI( 2 ) ,BETO( 2 ) , 


I 


4 NSPK 2 ) .TITLEIl 20 ) ,MR( 50 ) ,RMSPf 50 ) .BESPFl 50 ) ,WOWCR< 50 ) , 

5 PLOSS1 50),MSP(50,2),THSP(50,2] 

COMMON /CALCON/ ACTWT, ACTOMG, ACTLAM, MBIM1 ,MBIP1 ,MBOM1 ,MBOP1 ,MMM1 » 

1 HM1 ,HT,DTLR,DMLR, PITCH, CP, EXPON.TWW ,CPTIP,TGROG, TBI ,TBO,TWL, 

2 WI , WMI »WCRI , ITMIN , UMAX, NIP, IMS1 , IMS2 , IMS! 2 ) ,BV1 2 ) ,MLE( 2 ) , 

3 THLEl £ ) ,RMI( 2 ) ,RMO( 2),BESP(50),MV( 100) ,RM( 1 00 ) ,BE( 1 00 ) , 

4 BEF( 100 ), DBDMl IOO),DBFDm 100 ), SAL! 1 00 ) ,PLOSIMM 00 ) ,AAAM 00 ) , 

5 BBB1 100),IV( 101 ),ITV( 1 0 0 , 2 ) ,TV( 1 00 , 2 > ,DTOMV( 100,2), 

6 BETAV! 1 00, 2 ) ,MH(1 00,2 ), DTDMH1 100,2 ),BETAH1 100,2 ),RMH( 100,2), 

7 BEH! 100,2 J.PLOSMHl 100,2) 

COMMON /AUKRHO/ A! 2500,4 ) ,U( 2500 ) ,K( 2500 > ,RHO( 2500 ) 

LEVEL 2, A ,U ,K »RHO 
COMMON /MBIMBO/ MBIZ.MBOZ 
COMMON /MVNORM/ XMVN(IOO) 

DIMENSION SPLNOl 2 ) ,CARD( 8) 

INTEGER BLDAT , AANDK , ERSOR , STRFN, SLCRD , SURVL, AATEMP, SURF .FIRST, 

1 UPPER, SI, ST 

REAL K,KAK, LAMBDA, LMAX,MH,MLE, MR, MSL, MSP, MV, MVIM1 
DATA ICALL/O/, END/1 0H$END / 

C 

C READ AND PRINT ALL INPUT DATA 
C 

NREAD = 1 

NWRIT = 6 

ICALL=ICALL* 1 

IF ( ICALL.GT. 1 ) GO TO 2 - 

1 READ (5,990) CARD 

IF (CARD! 1 ) . EQ. END ) GO TO 2 
WRITE! 1 ,990) CARD 
GO TO t 

2 REWIND 1 

WRITE! NWRIT , 1 000 ) 

WRITE! NWRIT ,1110) 

READ INREAD, 1030) GAM, AR, TIP, RHOIP, HTFL, BLANK, OMEGA, ORF 
WRITE! NWRIT , 1 040 ) GAM, AR , TIP, RHOIP, HTFL, BLANK .OMEGA , ORF 
READ (NREAD, 1030) BETAI , BETAO, BLANK , BLANK ,FSMI , FSMO 
READ (NREAD, 1030) REDFAC >DENTOl,SSM1 *SSM2 
IF (DENTOL.LE.O. ) DENTOL = .01 

C — MOPT = 0, NO CORRECTION TO THE BESP ARRAY (REDFAC MUST EQUAL 1.0) 

C MOPT = 1 , READ IN WOWCR ARRAY FOR CALCULATING REDUCED FLOW BESP 

C MOPT = 2, REDUCED BESP ARRAY CALCULATED BY PROGRAM. 

READ ( NREAO ,1010) MB I, MBO, BLANK, BLANK, MM, NBBI, NBL, NR 3P, MOPT, LOPT, 
1 LRVB 
MBIZ=MBI 
MBOZ=NBO 

IF (LRVB. ED. 1 ) GO TO 6 
WRITE! NWRIT ,1120) 

WRITE! NWRIT, 1 040 )BETAI, BETAO, CHORD! \ )»STGR( 1 ),FSHI,F5MQ 
GO TO 8 

6 WRITE! NWRIT. 1122) 

LAMBDA = BETAI 
RVTHD = BETAO 

WRITE! NWRIT >1040) LAMBDA ,RVTHO, CHORD It) ,STGR(1 ) 

8 WRITE ( NHRIT ,1125) 

WRITE (NWRIT, 1040) REDFAC .DENTOL, SSM1 ,SSM2 
WRITE! NWRIT, 11 30) 

WRITE! NWRIT, 1 020 ) MBI , MBO, BLANK, BLANK, MM, NBBI , NBL, NRSP, MOPT , LOPT , 
1 LRVB 
DO 10 J=t,2 

IF (J.EQ.1) WRITE! NWRIT ,1140) 
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IF (J.EQ.2) WRITE! NWRIT ,1150) 

WRITE! NWRIT >1 180) J,J,J,J,J 

READ ( NREAD >10 30 ) BLANK .BLANK .BLANK .BLANK ,SPLNOI J ) 

WRITE! NWPIT, 1040) RI(J)»RO(J)»BETI(J),BETO(J) .SPLNO! J ) 

NSPKJl = SPLNO! J) 

NSP = NSPI(J) 

WRITE! NWRIT ,1190) J 

WRITE! NWRIT , J 040 ) l MSP! I , J ) , I = 1 ,NSP) 

WRITE! NWRIT , 1200 ) J 

10 WRITE! NWRIT, 1040) ( THSP! I , J ) , 1= I ,NSP ) 

WRITE! NWRIT ,1210) 

READ ( NREAD , 1030 ) ( MR! I ) , 1= 1 ,NRSP ) 

WRITE! NWRIT, 1040) (MR! I), 1=1 ,NRSP> 

WRITE! NWRIT , 1220 ) 

READ (NREAD, 1030) ( RM5PI I ) , 1= 1 , NRSP ) 

WRITE (NWRIT ,1040) (RMSP(I),I=1 ,NRSP) 

WRITE ! NWRIT ,1230) 

READ (NREAD, 1030) ( BESPF! I ) ,1=1 ,NRSP ) 

WRITE! NWRIT, 1040) ( BESPF 1 1 ) , 1= 1 ,NRSP) 

DO 20 1=1 , NRSP 

BESP(I) = BESPF! I) 

20 PLOSS(I) = 0. 

IF (MOPT.NE.1 ) GO TO 40 
WRITE ( NWRIT ,1236) 

READ (NREAD, 1030) t WOWCR ( I > , 1=1 , NRSP ) 

WRITE ( NWRIT ,1040) ( WOWCR ( I > , 1=1 ,NRSP ) 

40 IF ( LOPT.EQ. 0 ) GO TO 60 
WRITE! NWRIT ,1237) 

READ (NREAD, 1030) ( PLOS3! I ) » 1=1 >NRSP ) 

WRITE! NWRIT, 1040) ( PLOSS! I ) , 1= 1 ,NR5P) 

60 WRITE! NWRIT, 1240) 

READ (NREAD, 1010) BLDAT , AANDK , ERSOR , STRFN , SLCRD , INTVL , SURVL 
WRITE! NWRIT, 1020) BLDAT , AANDK , ERSOR , STRFN, SLCRD , INTVL , SURVL 
IF! ICALL . EQ . 1 ) RETURN 

IF ( MM. LE. 1 00 . AND.NBBI . LE . 50 . AND .NRSP . LE . 50 . AND . NSPI! 1 J.LE.50 
1 .AND .NSPI! 2 ) . LE .50 ) GO TO 70 
WRITE! NWRIT, 1250) 

STOP 

70 IF (REDFAC.EQ.1 . .OR .MOPT.NE .0 ) GO TO 75 
WRITE! NWRIT, 1260) 

STOP 

C 

C CALCULATE MV ARRAY 
C 

75 HH1 = CHORD! 1)/FLDAT!MBO-MBI > 

DO 80 IM= 1 »MM 

MV(IM) = FLOAT! IM-MBI )*HM1 

XMVN! IM )=MV( IM ) /CHORD ( 1 ) 

IF ( SSM1 . EQ.5SH2 ) GO TO 80 
IF (MV(IM).LT.SSMI ) IMS1 = IM+1 
IF ( MV! IM ) . LE .S5M2 ) IMS2 = IM 
80 CONTINUE 

MV(MBO) = CHORD! 1 ) 

XMVN! MBO )=1 .0 
C 

C CALCULATE MISCELLANEOUS CONSTANTS 
C 

NER! 1) = 0 
NER! 2 ) = 0 
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HER! 1) = 0 
NER! 2) = 0 

PITCH = 2. *3. 1415927/F LOAT! NBL 1 
HT = PITCH/F LOAT! NBBI ) 

DTLR = HT/1000. 

DMLR = HN1/1000. 

BV 11) □ 0. 

BV( 2 ) = 1. 

MBIM1 = MBI-1 
MBIP1 = MB I'M 
MBOM1 = MBO-1 
MBOP1 = MBOM 
MMM1 = MM- 1 
CP = AR/( GAM-1 . )«GAM 
EXPON □ 1 ./(GAM-1 . ) 

TWW = 2 . KONEGA/WTFL 

CPTIP = 2.*CP*TIP 

TGROG = 2 . "GAM^AR/l GAM+ 1 , ) 

CALL SPLINT! MR, RMSP, NRSP, MV, MM, RM, SAL, AAA) 

CALL SPLINT! MR, BESPF, NRSP, MV, MM, BEF.DBFDM, AAA) 

CALL SPLINT! MR, BESP, NRSP, MV, NM, BE, DBDM, AAA) 

CALL SPLINT! MR, PLOSS, NRSP, MV, MM, PLOSIM, BBS, AAA) 

C 

C CALCULATE GEOMETRICAL CONSTANTS 
C 

CHORD! 2) = CHORD! 1) 

STGR! 2 ) = STGRM) 

MLE! 1 ) □ 0. 

MLE! 2 ) = 0. 

THLE! 1 ) = 0. 

THLE! 2 ) = PITCH 
RMI! 1 ) = RM(MBI) 

RMI(2) = RM(MBI) 

RMO( 1 1 □ RM! MBO ) 

RMO! 2 ) = RMtMBO) 

C 

C INITIALIZE U AND K ARRAYS AND SURFACE DENSITY ARRAYS 
C 

DO 90 1=1,2500 

um = i. 

K( I ) =0. 

90 RHO(I) = RHOIP 

C INITIALIZE A ARRAY 

DO 91 KDUM = 1 ,4 
DO 91 I = 1,2500 

91 A! I »KDUM ) = 0. 

NREAD=5 

RETURN 

C 

C FORMAT STATEMENTS 
C 

990 FORMAT 18A10) 

1000 FORMAT! 1H1 ,35X, 

# 51 H--- INPUT FOR TSONIC BIADE-TO-BLAOE FLOW SOLVER //) 

1010 FORMAT ( 1615) 

1020 FORMAT ( IX, 1617) 

1030 FORMAT (8F10.5) 

1040 FORMAT UX,8G16.7> 
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1100 FORMAT (20A9) INPUU189 

1105 FORMAT (1X.20A9) IMPUU190 

1110 FORMAT (7X,3HGAM»19X,2HAR,13X,3HTIP,12X,5HRHOIP,12X,9HWTFL,nX,6H IMPUU191 
1 ,10X,5HOMEGA,12X,3HORF) IMPUUI92 

1 1 20 FORMAT ( 6X,5HBETAI , 1 1X.5HBETAO, 11X,6HCHORDF , t 1X.5HSTGRF , 1 2X .9HFSMIINPUU1 93 
1 , 1 2X»9HF5MO ) INPUU199 

1 1 22 FORMAT ( 6X »6H LAMBDA, 1 OX»5HRVTHO» 1 1X»6HCH0R0F , 1 0X,5HSTGRF ) INPUUI95 

1125 FORMAT l 6X ,6HR£DFAC, 1 OX,6HDENTOL» 1 1X,9HSSM1 » 12X,9H5SM2 ) INPUUI96 

1 1 30 FORMAT! 1 HO , 3X , 3HMBI ,9X . 3HMBO » 1 9X , 2HMM , 3X ,9HNBBI , AX , IMPUU 1 97 

* 3HNBL, 3X»9HNR5P,3X,9HM0PT , 3X»9HL0PT , 3X,9HLRVB ) INFUU19B 

1 1A0 FORMAT! 39H0 BLADE SURFACE 1 — UPPER SURFACE) INPUU199 

1150 FORMATl 39H0 BLADE SURFACE 2 — LOWER SURFACE) IMPUU200 

1100 FORMAT (7X,2HRI ,11 »12X,2HRO, II ,12X,AHBETI, 11,1 IX.AHBETO.II , 11X .5HSINPUU201 
IPLNO.II) INPUU202 

1190 FORMAT ( 7X » 3HM5P , 1 1 » 2X , 5HARR AY ) IMPUU203 

1200 FORMAT ( 7X,9HTHSP,I1 ,2X,5HARRAY) INPUU20A 

1210 FORMAT! 16H0 MR ARRAY) INPUU205 

1220 FORMAT t7X,t1HRM5P ARRAY) IHPUU206 

1230 FORMAT (7X,!1HBESP ARRAY) INPUU2Q7 

1235 FORMAT ( 7X» 1 1HBESPF ARRAY) INPUU2O0 

1236 FORMAT (7X,11HWOWCR ARRAY) INFUU209 

1237 FORMAT 17X,11HPL0SS ARRAY) INPUU210 

1 240 FORMATl 52H0 BLOAT AANDK ERSOR STRFN SLCRO INTVL SURVL) IMPUU211 

1250 FORMAT (91H1 MM,NBBI ,NRSP,OR SOME SPLNO IS TOO LARGE) INPUU212 

1260 FORMAT (56H1 WHEN REDFAC IS LESS THAN 1.0, MOPT MUST EQUAL I OR INPUU213 

12) INPUU219 


SUBROUTINE PRECAL 
C 

C PRECAL CALCULATES ALL REQUIRED FIXED CONSTANTS 
C 

COMMON NRE AO , NWRIT , ITER , I END , LER( 2 ) , NER f 2 ) 

COMMON /INPUTT/ GAM, AR, TIP, RHOIP.WTFL, OMEGA, ORF .BETAI.BETAO, 

1 LAMBDA, RVTHO, REDFAC, OENTOL,FSMI , FSMO.SSMI , SSM2 »MBI ,MBO , MM, 

2 NBBI , NBL , NRSP , MOPT , LOPT , LR VB , BLOAT , AANDK , ERSOR , STR FN , S LCRD , 

3 INTVL , SURVL ,CHORD ( 2 ) »STGR( 2 ) ,RI( 2 ) »RO( 2 ) »BETI l 2 ) ,BETO( 2 ) * 

9 NSPIl 2 ) ,TITLE It 20 ) »MR150 ) ,RMSP( 50 ) ,BESPF( 50 ) ,WOWCR( 50 ) » 

5 PLOSSl 50 ) »M5P15Q*2 ) *THSP( 50,2) 

COMMON /C A ICON/ ACTWT, ACTOMG,ACTLAM,MBIM1 ,MBIP1 ,MBOM1 ,MBOP1 ,MMM1 * 

1 HM1 ,HT »DTLR»DMLR , PITCH, CP , EXPON,TWW»CPTIP»TGROG, TBI , TBO.TWL, 

2 HI ,WMI ,WCRI ,ITMIN,ITMAX,NIP,IMS1 ,INS2,IMSl 2 ) ,BV( 2 ) , MLE C 2 ) , 

3 THLEl 2)»RMI( 2 ) »RMO( 2 ) »BESP( 50 ) »MV( 100),RM( 100) ,BE( 100 ) , 

9 BEF (1 00 ) ,OBDMC 1 00 ) »DBFDM( 100), SAU 100), PLOSIMl 100), AAA1 100), 

5 BBBt 1 00 ) , IV( 101 ) , ITVt !00,2),TV( 100,2 ) ,DTDMV( 1 00 ,2 ) , 

6 BETAVt 100,2 ),MHM 00,2), DTDMHl 100,2 ),BETAH( 100,2 ),RMH( 100,2), 

7 BEH( 100,2 ),PLOSMH( 100,2 ) 

COMMON /AUKRHO/ At 2500, 9 ),U( 2500 ),Kl 2500 ),RHO( 2500) 

LEVEL 2, A,U,K,RHO 

COMMON /VARCOM/ RHOHBl 100,2 ),RHOVBt 100,2 ) ,WMB( 100,2 ) ,WTB( 100,2 ) , 

1 WHCRMl 100,2), LABE L1 1 ,100) 

COMMON /BCDCOM/ INITt 2 ) , EMC 50, 2 ) .02T0H2M 00 , 2 ) 

COMMON /TBBC/ TBIBC.TBOBC 
COMMON/WIWO/ HISVjWOSV 

DIMENSION CURVt 1 00 ,2 ) ,ZMR( 1 00 ) .BEZMRt 100) ,WIMQP19 ) , WWCR19 ) , 

1 BETAIMt 9 ) »IMOP( 9 ) 

INTEGER B LDAT, AANDK, ERSOR, STRFN, SLCRD, SURVL, AATEMP, SURF, FIRST, 

1 UPPER, SI, ST 

REAL K , K AK , LAMBDA , IMAX , MH , M LE , MR , MSL , MSP , MV , MVIM 1 
EXTERNAL BL1 ,BL2 
DEGRAO = 100. /3. 1915927 
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NEGBE = 0 
IEPROR □ 0 

CALCULATE 1TV, IV, TV, AND DTDMV ARRAYS 

ITMIN = 0 
UMAX = N3BI-1 
ITV UPSTREAM OF BLADE 
FIRST = 0 
LAST = NBBI-1 
DO 10 IM=1 ,MBIM1 
ITVl IM , 1 ) = FIRST 
10 ITV(IM,2) = LAST 
ITV, TV, AMD OTDMV ON BLADE 
DO 20 IM=MBI,HBO 
LERI 2) = 1 
BLCD CAU NO. I 

CALL BL1 ( MV( IM ) »TVl IM, 1 ) ,OTDMV( IM, 1 ) » INF ) 

ITVl IM, 1 ) = INTKTVlIH.l HDTLRJ/HT) 

IF ITV(IM.U.GT.-DTLR) ITVl IM, 1)=ITV( IM, 1 )+1 
ITMIN = MINOl ITMIN , ITVl IM, 1 ) ) 

LERI 2 ) = 2 
BLCD CALL NO. 2 

CALL B L 2 ( MV ( IM) ,TV( IM,2 ) ,DTDMV( IM,2 ),IHF ) 

ITVIIM.2) = INK l TV( IM>2 1-DTLR )/HT ) 

IF ( TVl IM , 2 ) . LT .DTLR ) ITVl IM , 2 ) = ITVt IM, 2 )-1 
20 UMAX = MAXOl ITMAX, ITVt IM»2 ) ) 

ITV DOWNSTREAM OF BLADE 
LAST = ITVl MBO»2 ) 

FIRST = LAST+1-NBBI 
DO 90 IM=MBOP1,MM 
ITVl IM, 1 1 = FIR5T 
90 ITVIIM.2) = LAST 

ITMIN = MINOl ITMIN, ITVt MM, 1)) 

IV ARRAY 

IV(1) r 1 
DO 50 IM=1 »MM 

50 IV( IM + 1 ) = IVt IM)*ITV(IM,2)-ITVIIM,1 )+1 

CALCULATE BETAV AND CURV ARRAYS 

DO 60 SURF=1 ,2 
00 60 IM=MBI»M80 

CURV(IM.SURF) = lRM(IM)«D2TOM2tIM, SURF KSALl IH)#OTDHV( IN, SURF)) 
1 ( 1 . +1 RMl IM )*OTDMV( IM.SURF ) )**2 )«*t .5 

60 BETAVt IM.SURF) = ATANt DTDMVt IM,SURF )*RM( IM) )#DEGRAO 
NIP = IV(MM)+NBBI-1 
IFl NIP. GT. 2500 ) WRITEtNWRIT, 1 150) 

CALCULATE MH AND DTOMH ARRAYS 


ITO = ITVt 1,1) 

MRTS □ 1 
INSt 1) = 1 
MH(I.I) = 0. 

OTDMH11 ,1 ) = 1 . El 0 
LERt 2 ) = 3 

BLCD AND ROOT (VIA MHORIZ) CALL NO. 3 

CALL MHORIZl MV »ITV( 1,1 ) »BLt »MBI ,MBQ» ITO»HT»DTLR»0»IM5( ! ),MH( 1 »1 ) 
1 DTDMHl 1 ,1 ), MRTS) 
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IF < I TV ( MDO > 1 )-ITV( MBO, 2 MNBBI . NE . 2 ) GO TO 70 
IMSL = IMS( 1 ) ♦ ! 

MH( IMSL.1 > = MV(MBO) 

DTOMIM IMSL . 1 ) = -1 .E10 
IMSt 1 ) = IMSL 
70 IM5( 2 ) = 0 
MRTS = 1 
LERt 2 ) = 4 

BLCD AND ROOT t VIA MHORIZ) CALL NO, 4 

CALL MHORIZ(MV,ITVt 1 , 2 ) ,BL2 ,NBI ,MBO, ITO,HT,DTLR , 1 , IMS( 2 I ,MH( 1 ,2), l 
1 OTDMHd ,2), MRTS) 

IMSMAX = MAXO( IMS( t ) » IMS! 2 ) > 

IF ( IMSMAX. GT. 100) WRITE ( NWRIT » 11 00 ) IMSMAX 

CALCULATE RMH ARRAY 

DO 00 SURF=1,2 

CALL SPLlNTt MR »RMSP,NRSP»MHl 1 .SURF ), IMSt SURF ) ,RMH( 1 , SURF ) .AAA, BBB ) 
00 CALL SPLINTt MR pPLOSS.NRSPpMHl 1 , SURF ) >IMS< SURF ) ,PLOSMH( 1 .SURF), 

1 AAA, BBB) 

CALCULATE LAMBDA WHEN BETAI IS GIVEN AS INPUT 

IF I LRVB.EQ. 1 ) GO TO 130 
BETAI = BETAI/DEGRAD 
BETAO = BETAO/DEGRAD 
IF (FSMI. NE. FSMO) GO TO 90 
FSMI = 0. 

FSMO □ CHORDt 1 ) 

90 CALL SPLItmtIR, RttSP.NRSP, FSMI, 1.RNFSMI, BLANK. AAA) 

CALL SPLINT(MR,RMSP,NRSP,FSM0.1 pRMFSMO, BLANK, AAA) 

CALL SPLINT* MR ,BESPF ,NRSP,FSMI , 1 ,BEFSMI .BLANK , AAA ) 

CALL SPLINT ( MR » BESPF ,NRSP, FSMO. 1 , BEFSMO. BLANK , AAA ) 

CALL SPLINTtMR, PLOSS.NRSP, FSMI, 1 .PLFSMI, BLANK, AAA) 

CALL SPLINTtMR, PLOSS.NRSP, FSMO, 1 .PLFSMO, BLANK, AAA) 

RHOVI = HTFL/BEFSMI/PITCH/COS( BETAI )/RMFSMI 
WI = 0. 

DELHMX = SQRTt TGROG#TIP )/1 0 . 

100 TTIP = 1.-(WI»»2*2.*OMEGAWRMFSMI*WI#SIN(BETAI)MOMEGA*RMFSMI) 

1 #»2)/CPTIP 
IF (TTIP.LE.O. ) GO TO 1 1 0 
TEMP = TTIP#*t EXPON-1 . ) 

RHOIPL = RH01P*( 1 . -PLFSMI ) 

RHOT = RHOIPL«TEMP*TTIP 

F PRIME = RHOT-RHOIPL/GAM»»WI/ARMWI+OMEGAMRMFSMI«SINt BETAI i)/TIP 
1 *TEMP 

IF (FPRIME.LE.O. ) GO TO 110 

WINEW = WIMRHOVI-RHOT*WI )/FPRIME 

IF ( WINEW-HI .GT.DELWMX ) WINEW = WI*DELWMX 

IF 1 ABSt ( WINEW-WI )/WINEW ) . LT. . 000005 ) GO TO 120 

WI = WINEW 

GO TO 100 

110 WRITEt NWRIT ,1020) 

IERROR = 1 

120 LAMBDA = RMFSMUM WI*SIN( BETAI ) ♦OMEGA«RMFSMI ) 

WMI = WI#COSI BETAI ) 

AA = { 2 .#OMEGA*LAMBDA-t OMEGA**RMFSMI )#*2 )/CPTIP 
WCRI □ SQRTt TGROG#TIP#( 1 . -AA ) ) 


CALCULATE RVTHO WHEN BETAO IS GIVEN AS INPUT 


C 

RHOVO = WTF L/BEF5M0/PITCH/C0SI BETAO )/RMF5M0 
TWLMR = 2 . *OMEGA*LAMBDA-( OMEGA#RMFSMO )##2 
TTIP = 1 .-TWLMR/CPTIP 
RHOIPL = RHOIP* ( 1 . - PLFSMO ) 

RHOMB2 = RHOIPL*TTIP , *»EXFON 
LERI 1 ) = 1 

C DENSTT CALL NO. 1 
NERT = NERt 1 ) 

JZ = 1 

IF (FSMO. GE.SSM1 .AND. FSMO. LE.SSM2) JZ=2 

CALL DENSTYt RHOVO, RHOMB2, WO, TWLMR, CPTIP.EXPON, RHOIPL, GAM, AR , TIP, 
1 JZ) 

IF ( NERT.NE .NER( 1 ) ) WRITEt NWRIT ,1022 ) 

RVTHO = RMFSMOM W0*5IN( BETAO M0MEGA*RMF5M0 ) 

WMO = WO*COSl BETAO) 

WCRO = SQRTt TGROG&TIPM 1 . -TWLMR/CPTIP ) ) 

130 TWL = 2. «OMEGA '♦LAMBDA 

C 

C INITIALIZE DENSITY WHERE HORIZONTAL MESH LINES INTERSECT BLADE 
C AND CALCULATE BETAH ARRAY 
C 

OO 150 SURF=1,2 
IM5S = IMSt SURF) 

IF (IMSS.LT.1 ) GO TO 150 
DO 140 IHS= 1 , IMSS 

RHOHBl IHS , SURF ) = RHOIP«( 1 . -PLOSMHt IHS , SURF ))*( 1 . -t 2 . "OMEGA* 

1 LAMBDA-(ONEGA«RMH( IHS, SURF ) ) **Z J/CPTIP )««EXPON 
140 BETAHt IHS, SURF) = ATANI DTDMHl IHS, SURF )#RMH( IHS, SURF ) )#DEGRAD 
150 CONTINUE 
C 

C INITIALIZE DENSITY WHERE VERTICAL MESH LINES INTERSECT BLADE 
C AND AT INTERIOR POINTS 
C 

DO 170 IM=1,MM 

TTIP = 1.-tTWL-tOMEGA*RM1IM))#*2)/CPTIP 
RHOT = RHOIPK1 .-PLOSIM(IMn«TTIP#*EXPON 
DO 160 SURF=1 .2 
160 RHOVBt IM,SURF ) = RHOT 
IPU = IV(IM) 

IPL = IVIIMM )-l 
DO 170 IP=IPU, IPL 
170 RHO(IP) = RHOT 
C 

C CALCULATE VELOCITY DIAGRAM INFORMATION, AND 

C TAN BETA ( TBI AND TBO ) AT UPSTREAM AND DOWNSTREAM BOUNDARIES 

C 

IMOPt 1 ) □ 1 
IMOPt 2 ) B MBI 
IMOP( 3 ) = MBO 
IMOPt 4) = MM 
WHIRL = LAMBDA 
DELTWL = 0. 

DO 220 1=1 ,4 
IM = IMOPt I) 

VTHIM = WHIRL/RM(IM) 

VTHIM2 = VTHIM*«2 

WTHIM = VTHIM-OMEGA#RM( IM ) 

WTHTWL = VTHIM2+0ELTWL 

RHOWIM = WTFL/RMt IM )/PITCH/BEF( IM) 
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RHOIM = RHOVB! IM, 1 J 

RHOIPL = RHOIPM ! .-PLOSIM! IM) ) 

LER1 1 ) = 2 

C DENSTY CALL NO. 2 
NERT □ NER( I ) 

JZ = 1 

CALL DENSTY(RHOHIM, RHOIM, WMIM, HTHTWL, CPTIP, EXPON, RHOIPL, GAM, AR, 

1 TIP » JZ ) 

IF (NERT.NE.NERd)> WRITE! NWRIT » 1 024 ) MV(IM),IM 

TBETA = WTHIM/WMIM 

BETAIM(I) □ ATAN!TBETA)*DEGRAD 

AA = ( THL-! OMEGA»RM( IM ))«*2 ) /CPTIP 

WCRIM = SQRT(TGROG«TIP#(!.-AA)) 

WIMOP(I) = SQRT(WMIM»*2+HTHIM**Z) 

WWCR(I) = WIMOP! I )/WCRIM 

IF (I.EO.2) OELTHL □ 2.#OMEGA#t LAMBDA-RVTHO ) 

IF ( I.EQ.2) WHIRL = RVTHO 
220 IF (I.EQ.1 ) TBI = TBETA 
TBO = TBETA 

BTAIN = ATAN( TBI )*DEGRAD 
BTAOUT = ATAN! TBO )«DEGRAD 
IF t LRVB.NE . 1 ) GO TO 225 
FSMI = MVd > 

FShO = MV! MM) 

RMFSMI = RM1 t ) 

RMFSMO = RMl MM) 

HI = WIMOP! 1 ) 

WMI = WI/SQRTl 1 . *TBI»*2 ) 

WCRI □ WI/WWCR! 1 ) 

WO □ WIMOPl 4) 

WMO = HO/SGRTM .♦TBO»*2) 

WCRO = HO/WWCRl A ) 

225 CONTINUE 
C 

C CALAULATE TAN BETA ( TBIBC AND TBOBC ) AT ONE-HALF MESH SPACE INSIDE 
C UPSTREAM AND DOWNSTREAM BOUNDARIES 
C 

RMIM = (RMM J«RH(ZM/2. 

VTHIM □ LAMBDA/RMIM 
HTHTWL = VTHIM**2 
HTHIM = VTHIM- OMEGA*RMIM 

RHOWIM = HTFL/RMIM/PITCH/! BEF! 1 ) +BEF! 2 ) )*2 . 

RHOIM = RHOVBt 1 » 1 ) 

RHOIPL = RHOIP*! 1 . -1 PLOSIMl 1 J+PL05IM! 2)1/2.) 

LERI 1) □ 2 

C~ DENSTY CALL NO. 2-A 
NERT = NER1 I ) 

JZ - 1 

CALL DENSTY! RHOWIM, RHOIM, WMIM, HTHTWL, CPTIP, EXPON, RHOIPL, GAM, AR , 

1 TIP.JZI 

IF 1 NERT .NE . NERl 1 )) HRITEl NWRIT, 1 026 ) 

TBIBC = WTHIM/WMIM 

RMIM = I RMl MM ) + RM( MM- 1 ))/2. 

VTHIM = RVTHO/RMIM 

HTHTWL □ VTHIM#*2+2 . #OMEGA#( LAMBDA-RVTHO ) 

HTHIM □ VTHIM- DMEGA»RMIM 

RHOWIM = WTFL/RNIM/PITCH/(BEF!MM)+BEF(MM-1 ))»2. 

RHOIM = RHOVB! MM, 1) 

RHOIPL = RHOIP*M. -( PLOSIM! MMHPLOSIM! MM-1) )/2. ) 

LERI 1 ) = 2 
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C— DENSTY CBLL NO. 2-B 
NERT □ NERI 1 ) 

JZ = 1 

CALL DENSTY! RHOWIM, RHOIM, WMIM, HTHTHL, CPTIP, EXPON, RHOIPL, GAM, AR, 

1 TIP.JZ) 

IFfNERT .NE.NERl 1 ) ) WRITE(NWRIT,1026) 

TBOBC = WTHIM/WMIM 
C 

C CALCULATE REDUCED BESP WHEN REDFAC IS LESS THAN 1.0 
C 

IF 1REDFAC . EQ - 1 . ) GO TO 300 
C 

C CALCULATE REDUCED BESP WHEN W/WCR IS GIVEN AS INPUT 
C 

IF (MOPT.NE.1 ) GO TO 240 
DO 230 1=1 , NRSP 
ZMR(I) = MR1I) 

AA = ( 2 .IOMEGA** LAMBDA- ( OMEGA*RM5P( I ) )*#2 )/ CPTIP 
TPPRAT = 1 1 . -AA )/( 1 . -REDFAC##2*AA ) 

AA = 1 GAM-1 . 1/1 GAM* 1 . )*W0WCR! I )#»2 
AA □ (TPPRAT»(1.-AA)/(1.-REDFAC»*2*TPPRAT»AAn*#EXPON 
IF I BESPFt I ) . LE . 0 . ) NEGBE = 1 
230 BEZMR(I) = BESPF(I)*AA 
NZMR = NRSP 

IF (NEGBE. EQ.n WRITE! NWRIT, 1 160 ) 

GO TO 290 
C 

C CALCULATE REDUCED BESP WHEN W/WCR IS NOT GIVEN AS INPUT 
C 

C CALCULATE SOLIDITY AND FAIRING DISTANCE FROM L.E. ANO T.E. 

240 BLDCRD = SORT! ( ( RMl MBI J+RMIMBO) )/Z.*STGR( 1 ) )*»»2 ♦CHORD! t )*#2 ) 
SOLDTY = BLDCRD/PITCH/RM! MBI ) 

DISTLE = AMIN1! .5,AMAXU1./6.,m.-4.*50LDTY)/l8. ))*CHORDM) 
SOLDTY = BLDCRD/PITCH/RM! MBO) 

DISTTE = AMIN1(.5,AMAX1(1./6.,ni.-4.*50LDTY)/18.)>#CHORDU) 

C CALCULATE REDUCED BESP UPSTREAM 
RHOIM = RHOVBt 1,1) 

00 250 IM=1,MBIM1 
ZNR(IM) = MV! IM ) 

VTH2IM = ! LAMBDA/RM(IM))»«2 
RHOWM = WTF L/RM! IM J/PITCH/BEF! IM) 

RHOIPL = RHOIP#! 1 .-PLOSIM! IM) ) 

LERI 1 ) = 3 

C DENSTY CALL NO. 3 
NERT = NER! 1 ) 

JZ n 1 

CALL DENSTY! RHOWM, RHOIM, WMIM,VTH2IM, CPTIP, EXPON, RHOZPL, GAM, AR, TIP, 
1 JZ) 

IF (NERT. NE. NER! 1 )) WRITE! NWRIT , 1 024 ) MV(IM),IM 
ENTHF = CPTIP-WMIM*#2-VTH2IM 
ENTHRE □ CPTIP-!WMIM»*2+VTH2IM)*REDFAC«*2 
250 BEZMR(IM) = BEFl IH)*( ENTHF/ENTHRE )*»EXPON 
C CALCULATE REDUCED BESP IN BLADE 
IMLP = MBIM1 

IM1 = MBI+INT! DISTLE/HM1 ) + l 

IML = MBI+INT! (CHORD! 1 ) -DISTTE J/HM1 ) 

IF (IM1 .GT.IML) GO TO 270 
DO 260 IM=IM1 , IML 
IMLP = IMLPM 
ZMR(IMLP) = MV(IM) 


PRECA275 
PRECA276 
PRECA277 
PRECA278 
PRECA279 
PRECA280 
PRECA2B1 
PRECA2B2 
PRECA283 
PRECA284 
PRECA285 
PRECA286 
PRECA287 
PRECA288 
PRECA289 
PRECA290 
PRECA291 
PRECA292 
PRECA293 
PRECA294 
PRECA295 
PRECA296 
PRECA297 
PRECA29B 
PRECA299 
PRECA300 
PRECA301 
PRECA302 
PRECA303 
PRECA304 
PRECA305 
PRECA306 
PRECA307 
PRECA308 
PRECA309 
PRECA31 0 
PRECA31 1 
PRECA312 
PRECA31 3 
PRECA31 4 
PRECA315 
PRECA316 
PRECA31 7 
PPECA318 
PRECA31 9 
PRECA320 
» PRECA321 
PRECA322 
PRECA323 
PRECA324 
PRECA325 
PRECA326 
PRECA327 
PRECA32S 
PRECA329 
PRECA330 
PRECA331 
PRECA332 
PRECA333 
PRECA334 



172 


BETIM = (BETAV(IM,n+BETAVUH,2))/2. /DEGRAD 

RHOWIM = WTFL/BEF! IM )/RMl IM)/(TV( IM,2 )-TV( IM, 1 ) )/C05(BETIM > 

RHOIPL = RNOIPM 1 .-PLOSIMf IM) ) 

TWLMR = TWL-! OMEGA#RMl IM ) )*#2 
LER( 1 ) = 4 
DENSTY CALL NO. 4 
NERT = NERM ) 

JZ = 1 

IF UM.6E.IMS1 .AND.U1.LE.IMS2) JZ=2 

CALL DENSTY! RHOWIM, RHOZM i WIM > TWLMR , CPTIP , EXPON .RHOIPL » GAM , AR » TIP » 

1 JZ) 

IF (NERT. NE. NERM )) WRITE! NWRIT ,1024) MVUMMM 
ENTHF = CPTIP-WIMw*2 -TWLMR 
ENTHRE = CPTIP-(WIM»*2+TWLMR)*RE0FAC**2 
260 BEZHR(IMLP) = BEF( IM )#( ENTHF/ENTHRE )##EXP0N 
270 CONTINUE 

CALCULATE REDUCED BESP DOWNSTREAM 
DO 280 IM=MBOP1 »MM 

IMLP □ IMLP+1 

ZMR(IMLP) = MV(IM) 

WTHTWL = (RVTHO/RM(IM))**2+2.«OMEGA*(LAMBDA-RVTHO) I 

RHOWM = WTFL/RM! IM )/PITCH/BEF( IM ) 

RHOIPL = RHOIP*! 1 .-PLOSIM(IM) ) 

LERI 1 ) = 5 i 

DENSTY CALL NO. 5 

NERT = NER( 1 ) ! 

JZ = 1 

CALL DENSTY! RHOWM, RHOIM, WHIM, WTHTWL, CPTIP, EXPON, RHOIPL »GAM,AR , TIP, 
t JZ) 

IF ( NERT. HE. NERM )) WRITE l NWR IT » 1 024 ) MVUMJ.IM 
ENTHF = CPTIP-WMIM#*2 -WTHTWL 
ENTHRE = CPTIP-(WMIM»*2+WTHTWL)*REDFAC**2 
280 BEZMR! IMLP ) = BEFUM )*! ENTHF/ENTHRE )**EXPON 
NZMR = IMLP 

290 CALL SPLINT! ZMR ,BEZMR >NZMR ,MV ,MM,BE ,DBDM , AAA) 

CALCULATE BEH ARRAY 
300 DO 320 SURF= 1 , 2 

IF (REDFAC.NE.1 . ) CALL SPLINT! ZMR , BEZMR ,NZMR ,MHM , SURF ), IMS! SURF ) , 

1 BEH! 1 ,5URF ) , AAA »BBB ) 

IF f REDFAC.EQ. 1 . ) CALL SPLINT! MR, BESP.NRSP.MH! 1 , SURF ), IMS! SURF ) , 

1 BEH! 1 , SURF), AAA, BBB) 

IM5S = IMS! SURF) 

IF tIMSS.LT.I ) GO TO 320 
DO 310 INS r I , IMSS 

310 IF ! BEH! IHS,SURF ) . LE . 0 . ) NEGBE = 2 
320 CONTINUE 


NOTE ** WTFL , OMEGA, AND LAMBDA ARE ALL REDUCED AT THIS POINT, 
AND REMAIN REDUCED FOR THE REST OF THE PROGRAM, EXCEPT THAT 
LAMBDA IS RESTORED TO FULL VALUE IN TVELCY 


ACTWT = WTFL 
ACTOMG = OMEGA 
ACTLAM = LAMBDA 
WTFL = REDFAC#HTFL 
OMEGA = REDFAC#OMEGA 
LAMBDA = REDFAC#LAMBDA 


WRITE OUTPUT CALCULATED BY PRECAL 


TWL □ 2.*OMEGA«LAMBDA PRECA395 

TWW = 2. #DMEGA/WTFL PRECA396 

PRECA397 

WRITE OUTPUT CALCULATED BY PRECAL PRECA398 

PRECA399 

WRITE ( NWR IT , 1 0 30 ) WI,WMI,WCRI ,BTAIN,WO,WMO,WCRO,BTAOUT,FSMI,FSMO PRECA400 
WOSV=WO PRECA401 

WISV=WI PRECA402 

WRITE! NWRIT , 1 040 ) PITCH, HT,HM1 PRECA403 

WRITE! NWR IT ,1050) ITMIN , ITMAX , ACTLAM ,RVTHO,WTF L, NIP PRECA404 

WRITE1NWRIT ,1060) l IMOPU ) ,WIMOPl I ) ,WWCRt I ) ,BETAIM( I ) ,1= 1 ,4) PRECA405 

GO TO 5000 PRECA406 

WRITE! NWRIT, 1070) PRECA4Q7 

WRITE! NWRIT , 1 080 ) ! MV! IM ) , RM! IM ) , TV! IM , 1) ,DTDMV( IM , 1) ,CURV( IM, 1 ), PRECA408 
1 TV! IM, 2 ) »DTDMV( IM, 2 ) ,CURV! IM,2 ) , IM=MBI »MBO ) PRECA409 

WRITE! NWRIT, 10B5) DISTLE , IM1 ,DISTTE , IML PRECAL) 0 

WRITE (NWRIT, 1090 ) ( IM.MV! IM) ,RM( IM),SAL< IM ) ,BE( IM) ,DBDM( IM ) , PRECAL 1 1 

1 BE F t IM) ,DBFDM( IM),IM=1 ,MM ) PRECA412 

WRITE t NWR I T , 1 1 2 0 ) PRECA413 

DO 330 SURF=1,2 PRECA414 

IMSS = IMS! SURF) PRECAMS 

330 WRITE! NWRIT ,1130) SURF ,( MH( IM, SURF ) ,RHH( IM, SURF ), BEH! IM,SURF ) , PRECAM6 
1 BETAH! IM, SURF ),DTDMH!IM, SURF), IM=1 ,IMSS) PRECA417 

WRITElNWRIT.il 10) l IM.IVl IM) , l ITVUM.SURF ) ,SURF = 1 ,2),IM=1 ,MM) PRECA4t 6 
WRITE ( NWRIT, 1 140 ) PRECAM <3 

5000 CONTINUE PRECA42Q 

IT □ ITMIN PRECA421 

340 IF (IT. GT. ITMAX) GO TO 350 PRECA422 

TH □ FLOAT! IT )#HT PRECAL 

C WRITE I NWRIT ,1010) IT »TH PRECA424 

IT b ITM PRECA425 

GO TO 340 PRECA426 


STOP PROGRAM IF FATAL ERROR HAS OCCURRED IN PRECAL 

350 IF! NIP. GT. 2500 ) STOP 
IF! IMSMAX.GT. 100 ) STOP 
7FUERROR.NE.O) STOP 
IFtNERM l.NE.O) STOP 
IF(NEGBE.NE.Q) STOP 
WRITE! NWRIT ,1000) 

RETURN 

FORMAT STATEMENTS 


PRECA401 

PRECA402 

PRECA403 

PRECA404 

PRECA405 

PRECA406 

PRECA407 

PRECA408 

PRECA409 

PR ECAMD 

PRECA41 1 

PRECA41 2 

PRECAM 3 

PRECAM A 

PRECAM5 

PRECAM6 

PRECAM 7 

PRECAM 8 

PRECAM 9 

PRECA42Q 

PRECA421 

PRECA422 

PRECA423 

PRECA424 

PRECA425 

PRECA426 

PRECA427 

PRECA428 

PRECA429 

PRECA430 

PRECA431 

PRECA432 

PRECA433 

PRECAL 34 

PRECA435 

PRECA436 

PRECA437 

PRECA438 

PRECA439 

PRECA440 

PRECA441 


1000 FORMAT ( 1 HI ) PRECA440 

1010 FORMAT ( 4X » 14 »G1 6 . 5 ) PRECA441 

1020 FORMAT! 60H0INPUT WEIGHT FLOW (WTFL) IS TOO LARGE AT BLADE LEADING PRECA442 
1 EDGE ) PRECA443 

1022 FORMAT! 6 1H0INPUT WEIGHT FLOW (WTFL) IS TOO LARGE AT BLADE TRAILINGPRECA444 
1 EDGE) PRECA445 

1024 FORMAT! 45H0INPUT WEIGHT FLOW (WTFL) IS TOO LARGE AT M =,G15.5,7H ( PRECA446 
1 1M = , 13, 1H ) ) PRECA447 

1026 FORMAT! 97H0INPUT WEIGHT FLOW (WTFL) IS TOO LARGE ONE-HALF MESH SPAPRECA448 
ICE INSIDE UPSTREAM OR DOWNSTREAM BOUNDARY) PRECA449 

1030 FORMAT! 1 HI , 1 OX , 6HRELATIVE , 11 X , I OHMERlDIONAL , 11 X , 8HCRITICAL , PRECA450 

1 1 1X.9HREL. FLOW/1 IX, 3(8HVEL0CITY, 12X) ,6H ANGLE/ PRECA451 

2 319X.11HAT M = FS11I ) »7X» 1 6HAT UPSTREAM BDY . /1X.4G20 . 5/ PRECA452 

3 3( 9X , 1 1 HAT M = FSMO) ,6X» 18HAT DOWNSTREAM BDY./l X , 4G20 . 5// PRECA453 

4 9X.6HFSMI - , G1 4 . 5/9X »6HFSM0 =,G14.5) PRECA454 
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1040 FORMAT! //30H CALCULATED PROGRAM C0NSTANTS/V5X.5HPITCH, 1 3X, PRECA455 

1 2HHT » 1 3X » 3HHMI /1X,5G16*7) PRECA456 

1050 FORMAT </5X»5HITHIN,10X,5HITMAX/4X,I5,10X,I5//5X,6HLAMB0A,12X, PRECA457 
1 29H DOWNSTREAM WHIRL 1RVTH0) /1X,G16.7,12X,G16.7/26H0 REDPRECA458 

2UCED WEIGHT FLOW =,G16.7/38H0 HUMBER OF INTERIOR MESH POINTS = PRECA459 
3,15) PRECA460 

1060 FORMAT! 40H0CALCULATED VELOCITY DIAGRAM INFORMATION/24X,2HIM,9X, 1HWPRECA461 
1 , 1 7X,5HW/HCR» 1 6X»4HBETA/IX, 1 7HUPSTREAM B0UN0ARY,5X,I3,3G20.5/!X, PRECA462 
212HLEADING EDGE , 1 0X, I3,3G20 .5/1X, 1 3HTRAILING EDGE » 9X , I3»3G20 . 5/ PRECA463 
31 X » 1 9HDDWNSTREAM BOUNDARY, 3X,I3,3G20 .5 ) PRECA464 

1070 FORMAT ( 1 H I ,6X,62HBLADE DATA AT INTERSECTIONS OF VERTICAL MESH LINPRECA465 
1ES WITH BLADES) PRECA466 

1080 FORMAT </37X,15H»LADE SURFACE 1 ,30X,15HBLAOE SURFACE 2/7X, 1HM, 14X.PRECA467 

1 1HR,14X,2HTV»11X»5HDTDMV»1 1X,4HCURV,12X»2HTV»1 1X,5HDTDMV,1 IX, PRECA468 

2 4HCURV/! 6G1 5 . 5 ) ) PRECA469 

1085 FORMAT! 38H0F AIRING DISTANCE FROM LEADING EDGE IS,G20.5,8H ( IM1 = .PRECA470 

113, 1H )/39H FAIRING DISTANCE FROM TRAILING EDGE IS,G20.5,8H ( IML = PRECA471 
2 , 13, 1H) ) PRECA472 

1090 FORMAT ( IHt *!3X»44HSTREAM SHEET COORDINATES AND THICKNESS TABLE / PRECA473 
1 2X , 2HIM » 7X , 1 HM , 1 4X , 1 HR » 1 3X , 3HSAL, 1 3X , 1 HB , 1 2X , 5HDB/DM , TAX, 2HBF , PRECA4 74 

2! 1X,6HDBF/DM/I IX, I3»7G1 5.5) ) PRECA47S 

1100 FORMAT! 34HL0NE OF THE MH ARRAYS IS TOO LARGE/7H IT HAS, IS, 8H POIPRECA476 
1NT3) PRECA477 

1110 FORMAT !4H1 IH,9X,8HIV ARRAY, 25X,9HITV ARRAY/3BX,5HBLA0E/37X,7HSURPRECA478 
1FACE,3X,1H1 ,5X» 1H2/39X»3HNO./( 1 X»I3,5X, 1 1 0 , 25X , 2( I4,2X ) ) ) PRECA479 

1120 FORMAT 167H1M COORDINATES OF INTERSECTIONS OF HORIZONTAL MESH UNEPRECA480 
IS WITH BLADE) PRECA481 

1130 FORMAT (25H0MH ARRAY - BLADE SURFACE, I2//1 5X» 2HMH, 1 9X, 3HRMH, 1 9X, PRECA4B2 
1 3HBEH , 1 6X,5HBETAH, 17X»5HDTDMH/( 5G22.4 ) ) PRECA4B3 

1140 FORMAT (43H1 THETA COORDINATES OF HORIZONTAL MESH LINES//6X,2HIT, PRECA464 
15X.5HTHETA) PRECA485 

1150 FORMAT! 4BH0THE NUMBER OF INTERIOR MESH POINTS EXCEEDS 2500) PRECA4B6 

1160 FORMAT! 80H0THE INPUT BESP ARRAY RESULTED IN A NEGATIVE VALUE OF BEPRECA487 
1 AT A VERTICAL MESH LINE/5X,47HTH£ PROGRAM WILL TERMINATE AT THE EPRECA46B 
2ND OF PRECAD PRECA489 

1170 FORMAT! 82H0THE INPUT BESP ARRAY RESULTED IN A NEGATIVE VALUE OF BEPRECA490 

1 AT A HORIZONTAL MESH LINE/5X.47HTHE PROGRAM WILL TERMINATE AT THEPRECA491 

2 END OF PRECAU PRECA492 

END PRECA493 


// 


SUBROUTINE PLOTER (KK1 »KK2 »KK3,KK4 ) 

ENTRY BLDPLT 

RETURN 

ENTRY VEPLOT 

RETURN 

ENTRY TVPLOT 

RETURN 

END 

SUBROUTINE COEF 
C 

C COEF CALCULATES FINITE DIFFERENCE COEFFICIENTS, A, AND CONSTANTS, K, 
C AT ALL UNKNOWN MESH POINTS FOR THE ENTIRE REGION 
C 

COMMON NREAD , NWRIT , ITER , I ENO , LER ( 2 ) , NER ( 2 ) 

COMMON /INPUTT/ GAM, AR , TIP, RHOIP.WTFL .OMEGA, ORF ,BETAI ,BETAO» 

1 LAMBDA, RVTHQ, REDFAC, DENTOL »FSMI »FSM0,5SM1 ,S5M2 ,MBI ,MBO»f1M» 

2 NBBI , NB L , NR SP , MOPT , LOPT , LR VB , B LO AT , AANDK , ER SOR , STRFN , S LCRD , 

3 INTVL i SURVL , CHORD! 2 ) ,STGR( 2),RI(2),RO(2) »BETI( 2 ) ,BETO( 2 ) > 

4 NSPI! 2 ) .TITLEIl 20 ) ,MR( 50 ) ,RMSP( 50 ),BESPF!50 ) ,WOWCR(50 ) » 

5 PLOSS! 50 ) »MSP( 50,2 ) ,THSP( 50,2) 

COMMON /CALCON/ ACTWT, ACTOMG, ACTLAM.MBIMI ,MBIP1 .MBOM1 .MBOPl ,MMMt , 

1 HM1 »HT ,DTLR , DMLR, PITCH , CP, EXPON.TWW.CPTIP, TGROG,TBI »TBO,TWL, 

2 WI , WMI , NCR I , ITMIN , ITMAX , NIP , IMS1 , IMS2 , IMS! 2 ) , BV( 2 ) , MLE ( 2 ) , 

3 THLE( 2 ) »RMIl 2 ) ,RMO( 2 ) ,BESP! 50 ) *MVC 1 00 ) ,RM( 100), BE l 100), 

4 BEF (100) »DBDM( 1 00 ) ,DBFOM( 100 ) ,SAL( 100 ) ,PL0SIM(1 00 ) ,AAA! 1 00 ) , 

5 BBB! 100 ) ,IVl 101 ) »ITV1 100,2 ) ,TV! 100,2) ,DTDMVl 100,2), 

6 BETAV! 100, 2), MH! 100,21 ,DTDMH! 100,2) ,BETAH! 100,2 ) »RMH( 100,2), 

7 BEH! 1 00 ,2 ) , PLOSMH! 100,2) 

COMMON /AUKRHO/ A(2500,4),U( 2500 ),K(2500 ),RHO! 2500) 

LEVEL 2, A ,U,K,RHO 

COMMON /HRBAAK/H! 4 ) , R ( 4 ) , B! 4 ) ,KAKt 4 ) ,KA( 4 ) , RZ »BZ , IH! 4 ) 

COMMON /TBBC/ TBIBC.TB03C 

INTEGER BLOAT .AANDK , ERSOR , STRFN, SLCRD , SURVL , A ATEMP, SURF , FIRST , 

1 UPPER, SI, ST 

REAL K »KAK , LAMBDA, LMAX,MH, MLE , MR, MSI, MSP, MV, MVIMt 
C INITIALIZE ARRAYS 
IHC 1 ) = 1 
IH( 2 ) = 0 

C INCOMPRESSIBLE CASE 

IF (GAM.NE.1 . 5. OR. AR. HE. 1000. .OR.TIP.NE.1 .E6) GO TO 20 
I END = 1 
GO TO 40 

C ADJUSTMENT OF PRINTING CONTROL VARIABLES 
20 I F ( ITER . NE . 1 . AND . ITER . NE . 2 ) GO TO 30 
AANDK □ AANDK- 1 
ERSOR = ERSOR-1 
STRFN = STRFN-1 
SLCRD □ SLCRD- 1 
INTVL = INTVL-1 
SURVL = SURVL- 1 
30 IF(IENO.NE.O) GO TO 40 
AANDK □ AANDK 4 2 
ERSOR = EPSOR+2 
STRFN = STRFN+2 
SLCRD = SLCRD+2 
INTVL = INTVL 4 2 
SURVL O SURVL 4 2 
C 

C FIRST VERTICAL MESH LINE 
C 


PLOTER 

2 

PLOTER 

3 

PLOTER 

4 

PLOTER 

S 

PLOTER 

6 

PLOTER 

7 

PLOTER 

a 

PLOTER 

9 

COEF 

2 

COEF 

3 

COEF 

4 

COEF 

5 

COEF 

6 

COEF 

7 

COEF 

S 

COEF 

9 

COEF 

10 

COEF 

11 

COEF 

12 

COEF 

13 

COEF 

14 

COEF 

15 

COEF 

16 

COEF 

17 

COEF 

18 

COEF 

19 

COEF 

20 

COEF 

21 

COEF 

22 

COEF 

23 

COEF 

24 

COEF 

25 

COEF 

26 

COEF 

27 

COEF 

28 

COEF 

29 

COEF 

30 

COEF 

31 

COEF 

32 

COEF 

33 

COEF 

34 

COEF 

35 

COEF 

36 

COEF 

37 

COEF 

38 

COEF 

39 

CDEF 

40 

COEF 

41 

COEF 

42 

COEF 

43 

COEF 

44 

COEF 

45 

COEF 

46 

COEF 

47 

COEF 

48 

COEF 

49 

COEF 

50 

COEF 

51 

COEF 

52 

COEF 

53 
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40 DO 50 IP=1 »NBBI 

COEF 

54 


1 HM1 ,HT,DTLR,DMLR, PITCH, CP, EXPON, TWW, CPTIP , TGROG , TBI , TBO ,TWL , 

COSUB 

15 


A(IP,1 ) = 0. 

COEF 

55 


2 WI ,WMI , WCRI , ITMIN, ITMAX.NIP, IMS1 , IMS2 , IMS( 2 ) , BV( 2 ) »HLE( 2 ) , 

COSUB 

16 


A(IP,2) = 0. 

COEF 

56 


3 THLE( 2 ) >RMI( 2 ) »RMO( 2 ) »BESP( 50 ) »MV( 1 00 ) ,RM( 1 00 ) ,BE( 100), 

COSUB 

17 


A( IP, 3 ) = 0. 

COEF 

57 


4 BEF( 100 ) , DBOM( 1 00 ) »DBFDM( 1 00 ) ,SAL( 100) » PLOSIM( 100) , AAA( 100), 

COSUB 

ia 


A( IP,4 ) = 1. 

COEF 

55 


5 BBB( 1 00 ) » IV (101 ),ITV( 100,2 ),TV( 100,2 ) ,DTDMV( 100,2), 

COSUB 

19 


50 K( IP) = HM1*TBIBC/PITCH*2./(RM( 1 )+RM(2)) 

COEF 

59 


6 BETAV( 100,2 ),MH( 100,2 ),DTDMH( 100,2 ),BETAH( 100,2 ),RMH( 100,2), 

COSUB 

20 

c 


COEF 

60 


7 BEH( 100,2), PL0SMH( 100,2) 

COSUB 

21 

c 

UPSTREAM OF BLADE, EXCEPT FOR FIRST VERTICAL MESH LINE 

COEF 

61 


COMMON /AUKRHO/ A( 2500 ,4 ) ,U( 2500 ) ,K( 2500 ) ,RHO( 2500 ) 

COSUB 

22 

c 


COEF 

62 


LEVEL 2, A,U,K»RHO 

COSUB 

23 


IF (2.GT.MBIM1 ) 60 TO 70 

COEF 

63 


COMMON /HRBAAK/H( 4 ) ,R ( 4 ) ,B( 4 1 ,KAK( 4 ) ,KA( 4 ) ,RZ ,BZ , IH( 4 ) 

COSUB 

24 


DO 60 IM=2 »MBIM1 

COEF 

64 


INTEGER BLDAT , AANDK , ER50R ,STRFN , SLCRD , SURVL , AATEMP , SURF .FIRST , 

COSUB 

25 


60 CALL COEFP(IM) 

COEF 

65 


1 UPPER, SI, ST 

COSUB 

26 

c 


COEF 

66 


INTEGER DUMM 

COSUB 

27 

c 

BETWEEN BLADES 

COEF 

67 


REAL K , K AK , LAMBDA , LMAX , MH , MLE , MR , MSL , MSP , MV , MVIM 1 

COSUB 

28 

c 


COEF 

66 


DATA IA0VER/0/ 

COSUB 

29 


70 DO «0 IM=MBI,MBO 

COEF 

69 

C 


COSUB 

30 


BO CALL COEFB(IM) 

COEF 

70 

c 

COEFB CALCULATES FINITE DIFFERENCE COEFFICIENTS, A, AND CONSTANTS, 

K, COSUB 

31 

c 


COEF 

71 

c 

ALONG VERTICAL MESH LINES WHICH INTERSECT BLADES 

COSUB 

32 

c 

DOWNSTREAM OF BLADES EXCEPT FOR FINAL MESH LINE 

COEF 

72 

c 


COSUB 

33 

c 


COEF 

73 


ENTRY COEFB 

C05UB 

34 


150 IF (MBOP1 .GT.MMM1 ) GO TO 170 

COEF 

74 


IF (ITVIIM,1).GT.ITV(IM,2)) RETURN 

COSUB 

35 


DO 160 IM=MBOP1 ,MMM1 

COEF 

75 


ITVU = ITV( IM, 1 ) 

C05UB 

36 


160 CALL COEFP(IM) 

COEF 

76 


IT = ITVU - 1 

COSUB 

37 

c 


COEF 

77 


ITVL = ITV( IM , 2 ) 

COSUB 

38 

c 

FINAL VERTICAL MESH LINE 

COEF 

76 


IPU = IPF(IM,ITVU) 

COSUB 

39 

c 


COEF 

79 


IPL = IPU+ITVL-ITVU 

COSUB 

40 


170 I VMM = 'IV (MM) 

COEF 

60 


DO 90 IP=IPU> IPL 

COSUB 

41 


DO 150 IP=IVMM,NIP 

COEF 

61 


IT a IT + 1 

COSUB 

42 


A( IP, 1 ) = 0. 

COEF 

62 


CALL HRB (DUMM, IM, DUMM, IT, IP) 

COSUB 

43 


A( IP, 2 ) = 0. 

COEF 

63 


DO 10 1=1 ,4 

COSUB 

44 


A( IP, 3 ) = 1. 

COEF 

64 


KAK(I) a 0 . 

COSUB 

45 


A( IP, 4 ) = 0. 

COEF 

65 


10 KA( I ) = 0 

C05UB 

46 


1B0 K( IP ) = -HM1*TBOBC/PITCH*2./(RM(MM)*RM(MM-1 ) ) 

COEF 

66 

c 

FIX HRB VALUES FOR CASES WHERE MESH LINES INTERSECT BLADES 

COSUB 

47 

c 


COEF 

67 


60 IF (XT.EQ.ITVCimt M CALL BDRY12M ,IM,DUMM,IT) 

COSUB 

46 

c 

TAKE CARE OF POINTS ADJACENT TO B, AND CASES WHEN POINTS J,C,E, OR F 

COEF 

66 


IF ( IT . EQ. ITV( IM, 2 ) ) CALL BDRYt 2( 2 , IM, DUMM, IT ) 

COSUB 

49 

c 

ARE GRID POINTS 

COEF 

69 


ITVM1 a ITV( IM- 1,1) 

COSUB 

50 

c 


COEF 

90 


ITVP1 = ITV(IMM ,1 ) 

COSUB 

51 

c 

POINT B 

COEF 

91 


IF (IT.LT.ITVM1 ) CALL BDRY341 3, IM, 1 ) 

COSUB 

52 


IP = JVC MBIM1 ) 

COEF 

92 


IF (IT.LT.ITVP1) CALL BDRY341 4, IM, 1 ) 

COSUB 

53 


A( IP ,4 ) d 0. 

COEF 

93 


IF (IT.GT.ITVCIM-1,2)) CALL BDRY34( 3 , IM, 2 ) 

COSUB 

54 

c 

POINT C 

COEF 

94 


IF (IT.GT.ITV(IM+1 ,2)) CALL BDRY34( 4 , IM»2 ) 

COSUB 

55 


IF ( ITV( MBO, 1 )-ITV( MBO, 2 ) ♦NBBI .NE . 2 ) RETURN 

COEF 

95 

c 

COMPUTE A AND K COEFFICIENTS 

COSUB 

56 


IT = ITV( MBO, 1 )-l 

COEF 

96 


60 CALL AAK ( DUMM, IM, DUMM, DUMM, IP) 

COSUB 

57 


IP = IPF ( MBOP1 » IT ) 

COEF 

97 


DO 90 1=1 ,4 

COSUB 

58 


AIIP.3) a 0. 

COEF 

96 


K( IP ) = K( IP )*KAK( I )#A( IP, I ) 

COSUB 

59 


RETURN 

COEF 

99 


IF (KA(I).EQ.I ) A( IP , I ) = 0. 

COSUB 

60 


END 

COEF IDO 


IF ( ABS( A( IP,I ) ) . LE . 1 . ) GO TO 90 

COSUB 

61 


SUBROUTINE COSUB (IM) 

COSUB 

2 


A( IP, I ) = SIGN( 1 . , A( IP , I ) ) 

COSUB 

62 

c 


COSUB 

3 


IAOVER = IAOVER+1 

COSUB 

63 

c 

COSUB CALCULATES FINITE DIFFERENCE COEFFICIENTS, A, AND CONSTANTS, K 

COSUB 

4 


IF (IAOVER.LT. 50) GO TO 90 

COSUB 

64 

c 

ALONG ALL VERTICAL MESH LINES WHICH INTERSECT BLADES 

COSUB 

5 


WRITEt NWRIT ,1000) 

COSUB 

65 

c 


COSUB 

6 


STOP 

COSUB 

66 


COMMON NREAD ,NWRIT , ITER , IEND , LERt 2 ) ,NER( 2 ) 

COSUB 

7 


90 CONTINUE 

COSUB 

67 


COMMON /INPUTT/ GAM, AR , TIP ,RHOIP,WTF L , OMEGA, ORF ,BETAI ,BETAO, 

COSUB 

6 


RETURN 

COSUB 

68 


1 LAMBDA , RVTHO , REDF AC , DENTOL , FSMI , FSMO , 5SM 1 *SSM2 ,MBI » MBO, MM, 

COSUB 

9 

c 


COSUB 

69 


2 NBBI , NBL* NRSP , MOPT , LOPT , LRVB , BLDAT , AANDK , ERSOR , STR FN , S LCRD , 

COSUB 

10 

c 

COEFP CALCULATES FINITE DIFFERENCE COEFFICIENTS, A, AND CONSTANTS, 

K, COSUB 

70 


3 INTVL , SURVL , CHORD ( 2 ) ,STGRl 2 ) ,RI( 2 ) ,RO( 2 ) ,BETI( 2 ) ,BETO( 2 ) , 

COSUB 

11 

c 

ALONG ALL VERTICAL MESH LINES WHICH DO NOT INTERSECT BLADES 

COSUB 

71 


4 NSPI ( 2 ) »TITLEI( 20 ) , MR( 50 ) ,RMSP( 50 ) ,BESPF( 50 ) , WOHCR( 50 ) , 

COSUB 

12 

c 


COSUB 

72 


5 PL05S( 50 ) ,M5P( 50 ,2 ) ,THSP(50,2 ) 

COSUB 

13 


ENTRY COEFP 

COSUB 

73 


COMMON /CALCON/ ACTWT , ACTOMG,ACTLAM,MBIM1 ,MBIP1 ,MBOM1 ,MBOP1 ,MMM1 , 

COSUB 

14 


ITVU a ITV( IM, 1 ) 

COSUB 

74 
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IT B ITVU-1 COSUB 75 

ITVL = ITV(IM»2) COSUB 76 

IPL = IVIIMM )-1 COSUD 77 

IPU = IVIIM) COSUB 78 

DO 100 IP=IPU,IPL COSUD 79 

IT B ITM COSUB 60 

CALL HRB ( DUMM »IM»DUMM> IT » IP ) COSUB 81 

IF IIT.EQ.ITVU) R(l) = RHOIIPL) C05UB 82 

IF (IT. EQ. ITVL) Rt 2 ) = RHOtIPU) COSUB 63 

CALL AAK ( DUMM,IM,DUMM»DUMM, IP ) COSUB 69 

DO 100 1=1 ,9 COSUB 65 

IF( ABSt A( IP* I ) ) . LE, 1 . ) GO TO 100 COSUB 66 

A(IP,I) = SIGN( 1 . >A( IP»I ) ) COSUB 67 

IAOVER = IAOVERM COSUB 66 

IF ( IAOVER . LT .50 ) GO TO 100 COSUB 69 

WRITE ( NWR IT 1 1 000 ) COSUB 90 

STOP COSUB 91 

100 CONTINUE COSUB 92 

K(IPL) = K( IPLJ+Al IPL»2 ) COSUB 93 

K(IPU) = K( IPUJ-Al IPU, 1 ) COSUB 99 

RETURN COSUB 95 

1000 FORMAT l 1 H 1 »5X,81HPR0GRAM HAS BEEN STOPPED BECAUSE 50 OF THE A CCOSUB 96 

10EFFICIENTS ARE GREATER THAN 1 .0./6X.62HLOCAL SUPERSONIC FLOW MAY COSUB 97 

2BE THE CAUSE. TRY A SMALLER REDFAC. ) COSUB 96 

ENO COSUB 99 

SUBROUTINE HRBAK ( I ,IH,5URF , IT, IP ) HRBAK 2 

COMMON /CALCON/ ACTWT , ACTOMG , ACTLAM.MBIM1 »MBIP1 >MBOM1 ,MBOP1 ,MHM1 , HRBAK 3 

1 HM1 »NT , DTLR»DMLR» PITCH, CP, EXPON,TWW,CPTIP,TGROG,TBI ,TBO»TWL» HRBAK 9 

2 WI,WMI,WCRI,ITNIN.ITMAX,NIP,IMS1 ,IMS2 ,IM5( 2 ) .BVt 2 ) ,MLE( 2 ) , HRBAK 3 

3 THLEt 2 ) ,RMIC 2 ) »RMO( 2 ) ,BESP( 50 ) ,MV( 1 00 ) ,RM( 1 00 ) ,BE( 100), HRBAK 6 

9 BEF (TOO) , DB0M( 100) ,DBFOM( 100 ) ,SAL( 100) ,PLOSIM( 100) ,AAA( 100), HRBAK 7 

5 BB8I 100), IV( 101 ) ,ITV( 100,2) ,TV( 100,2) »DTDMV( 100,2), HRBAK 6 

6 BETAV( 1 00 ,2 ) ,MH( 1 00,2 ) ,0TDMH( 100,2) ,BETAHl 100,2) ,RMH( 100,2), HRBAK 9 

7 BEHt 100,2) ,PLOSMH( 100,2) HRBAK 10 

COMMON /AUKRHO/ At 2500 ,9 ) ,Ut 2500 ) ,K( 2500 ) »RHO( 2500 ) HRBAK 11 

LEVEL 2, A,U,K,RHO HRBAK 12 

COMMON /HRBAAK/H(9),R(9),B(9),KAK(9),KA(9),RZ,BZ,IHf9) HRBAK 13 

COMMON /VAR COM/ RHOHBU 00,2 ) ,RHOVB( 1 00 , 2 ) , WMBt 1 00 , 2 > ,WTB( 1 00 ,2 ) , HRBAK 19 

1 WWCRM( 100,2 ) .LABEL ( 1 •TOO) HRBAK 15 

INTEGER BLOAT, AANDK,ERSOR,STRFN,SLCRD,SURVL,AATEMP, SURF, FIRST, HRBAK 16 

1 UPPER, SI , ST HRBAK 17 

REAL K,KAK, LAMBDA, LMAX,MH,MLE, MR, MSL, MSP, MV, MVIM1 HRBAK 16 

: HRBAK 19 

C HRB CALCULATES MESH SPACING, H, DENSITIES, RZ AND R, AT GIVEN AND HRBAK 20 

C ADJACENT POINTS, AND STREAM SHEET THICKNESSES, BZ AND B, AT GIVEN HRBAK 21 

C AND ADJACENT POINTS HRBAK 22 


ENTRY HRB 
Ht1) = HT»RM(IM) 

HI 2 ) = HT*RMIIM) 

HI 3 J = MVIIM) - MVIIM-1 ) 
H(9 ) = MV( IMM )-MV( IM ) 

RZ B RHO(IP) 

IP3 = IPF( IM-1 »IT) 

IP9 = IPF ( IMM ,IT ) 

R C 1 > — RHOt IP-1 ) 

Rt 2 ) = RHOt IPM ) 

Rt 3 ) = RHOt IP3 ) 

Rt 9 ) = RHOt IP9 ) 

BZ = BE(IM) 


Bl 3) = BEt IM-1 ) 

BI9 ) = BE( IMM ) 

RETURN 

AAK CALCULATES FINITE DIFFERENCE COEFFICIENTS, A, AND CONSTANT, K, 
AT A SINGLE MESH POINT 

ENTRY AAK 

A1 2 B 2./H( 1 )/H( 2 ) 

A39 = 2 ./H( 3 )/H( 9 ) 

AZ = A12+A39 

Bl 2 = ( R ( 2 )-R 1 1 ) )/RZ/( H( 1 ) + Ht 2 ) ) 

B39 = ( B( 9 )*R( 9 )-B( 3 )#R( 3 ) )/BZ/RZ/( H( 3 ) 4 Ht 9 ) )-5AL( IM )/RMl IM) 
AtIP,n = t 2. /HI n+B12)/AZ/(H(1)+H(2n 
At IP , 2 ) = A1 2/AZ-A( IP,1 ) 

At IP»3 ) = ( 2 . /H( 3 ) + B39 )/AZ/(H( 3)+H(9 ) ) 

At IP»9 ) = A39/AZ-A( IP, 3 ) 

K t IP ) = -TWW*BZ*RZ*SAL(IM)/AZ 


BDRY12 CORRECTS VALUES COMPUTED BY HRB WHEN A VERTICAL MESH LINE 
INTERSECTS A BLADE 

ENTRY BORY12 

HI I ) = ABSt FLOAT ( IT )*HT-TV( IM,I ) )*RM( IM) 

R(I) B RHOVB(IM.I) 

KAK(I) = BVt I ) 

KA( I ) = 1 
RETURN 

BDRY39 CORRECTS VALUES COMPUTED BY HRB WHEN A HORIZONTAL MESH LINE 
INTERSECTS A BLADE 

ENTRY BDRY39 
IH(SURF) = IHt SURF )M 
IHS = IHt SURF) 

Htl) = ABSt MVt IM )-MHt IHS* SURF ) ) 

R( 1 1 = RHOHBt IHS, SURF) 

BlI) = BEHt IHS , SURF ) 

KAK(I) = BVt SURF) 

KAt I ) = 1 I 

RETURN I 

ENO 

SUBROUTINE SOR 

SOR SOLVES THE SET OF SIMULTANEOUS EQUATIONS FOR THE STREAM FUNCTION 
USING THE METHOD OF SUCCESSIVE OVER-RELAXATION 


COMMON NREAD ,NWRIT »ITER , IEND , LERI 2 ) ,NER( 2 ) 

COMMON /INPUTT/ GAM, AR , TIP, RHOIP.WTFL, OMEGA, ORF .BETAI ,BETAO, 

1 LAMBDA , RVTHO , REDFAC ,DENTOL , FSMI , FSMO, 5SM1 , SSM2 ,MBI ,MBO , MM , 

2 NBBI , NBL , NRSP , MOPT , LOPT , LR VB , BLOAT , AANDK , ERSOR , STRFN , SLCRD , 

3 INTVL.SURVL, CHORD t 2 ) .STGRt 2 ) ,RIt 2 ) ,RO( 2 ) ,BETI( 2 ) .BETOt 2 ) , 

9 NSPIt 2 ) .TlTLEIt 20 ) ,MRt 50 ) ,RMSP(50 ) ,BESPF( 50 ) ,HOWCRl 50 ) , 

5 P LOS St 5D),MSP(50*2)»THSP(50»2) 

COMtION /CALCON/ ACTWT, ACTOMG,ACTLAM,MBIM1 ,MBIP1 ,MBOM1 ,MBOP1 ,MMM1 , 

1 HM1 ,HT,OTLR,DMLR, PITCH, CP, EXPON ,TWW , CPTIP , TGROG , TBI ,TBO ,TWL , 

2 WI ,WMI , WCRI , ITMIN , ITMAX ,NIP , IMS1 ,IMS2,IMSl 2 ) ,BVt 2 ) ,MLE( 2 ) , 

3 THLEt 2 ) »RMIl 2 ) ,PMO( 2 ) .BESP150 ) ,MVl 100 ) ,RM( 1 00 ) ,BE( 1 00 ) , 

9 BEFt 100), DBDMt 1 00 ) ,DBrDMM 00 ) ,SAL( 1 00 ) , PLOSIMt 1 00 ) , AAAI 100), 
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5 BBB! 100),IV(101 ),ITVdOO,2),TVdOO,2).DTDMVdOO,2), SOR 

6 BETAV! 1 00 , 2 ) »MH( 100,2) ,OTDMH( 100,2) »BETAH! 1 00 ,2 ) ,RMH( 1 00 , 2 ) » SOR 

7 BEH( 100,2),PL05MH!100,2) SOR 

COMMON /AUKRHO/ A( 2500 ,4 ) ,U( 2500 ) ,K( 2500 ) ,RHO( 2500 ) SOR 

LEVEL 2, A,U,K,RHO SOR 

INTEGER BLOAT, AANDK ,ERSOR ,STRFN,SLCRD .SURVL, AATEMP »SURF , FIRST, SOR 

1 UPPER, SI, ST SOR 

REAL K.KAK, LAMBDA, LMAX, MH.MLE, MR, MSL, MSP >MV,MVIM1 SOR 

AATEMP = AANDK SOR 

IF IORF.GE.2. ) 0RF = 0. SOR 

ICOUNT = 0 SOR 

IF (ORF.GT.1 . ) GO TO 50 SOR 

ORF = 1. SOR 

ORFOPT =2. SOR 

40 ORFTEM = ORFOPT SOR 

LMAX =0. SOR 

50 IF (AATEMP. GT.O) WRITE( NHRIT, 1 01 0 ) SOR 

ERROR =0. SOR 

ICOUNT = ICOUNT* 1 SOR 

C SOR 

C SOLVE MATRIX EQUATION BY SOR, OR CALCULATE OPTIMUM OVERRELAXATION SOR 
C FACtOR SOR 

C SOR 

IP = 0 SOR 

DO 120 IM=1,MM SOR 

IPU - IVIIM) SOR 

IPL = IVtIM+1 )-1 SOR 

IT B ITV(IM,1 ) SOR 

IF (AATEMP. GT.O) WRITE (NWRIT , 1 020 ) IM,IT SOR 

DO 120 IP=IPU* IPL SOR 

IP1 = IP-1 SOR 

IP2 = IP*1 SOR 

C CORRECT IP1 AND IP2 ALONG PERIODIC BOUNDARIES SOR 

IF ( IM.GE.MBI . AND .IM. LE .MBO ) GO TO 60 SOR 

IF ( IT. EQ. ITV( IM, 1 ) ) IP1 =IP1 *NBBI SOR 

IF ( IT.EQ. ITV( IM»2 ) ) IP2=IP2-NBBI SOR 

60 IT3 = IT SOR 

IT4 = IT SDR 

100 IP3 = IPF( IM-1 , IT3 ) SOR 

IP4 = IPF( IM*1 , IT4 ) SOR 

IF (ORF.GT.1 . ) GO TO 110 SOR 

C CALCULATE NEW ESTIMATE FOR LMAX SOR 

UNEW = A( IP, 1 )*U( IP1 )*A(IP,2)*U<IP2)*A(IP,3)*UIIP3)*A(IP,4)*U(IP4)S0R 
IF (UNEW.LT.1 .E-25) U(IP)=0. SOR 

IF tUUPKEQ.O. ) GO TO 115 SOR 

RATIO = UNEW/UtIP) SOR 

LMAX = AMAXK RATIO, LMAX) SOR 

U(IP) = UNEW SOR 

GO TO 115 50R 

C CALCULATE NEW ESTIMATE FOR STREAM FUNCTION BY SOR SOR 

110 CHANGE = 0RF»(K(IP)-U(IP)+A(IP,1 )«U(IP1 )*A( IP,2 )*U( IP2 )+A( IP.3 )* SOR 
1 U( IP3 )*A( IP,4 )*U( IP4 H SOR 

ERROR = AMAXK ERROR, ABS( CHANGE)) SOR 

U(IP) = U( IP KCHANGE SOR 

115 IF (AATEMP. LE.O) GO TO 120 SOR 

WRITE! NHRIT, 1030) IT , IP , IP1 , IP2 , IP3 , IP4, ( At IP , I ) , 1= 1 ,4),K!IP) SOR 
120 IT = IT* 1 SOR 

AATEMP = 0 SOR 

IF (ORF.GT.1 . i GO TO 130 SOR 

ORFOPT □ 2 ./( 1 . +SQRT! ABS( 1 . -LMAX ) ) ) SOR 


19 


IF ( ICOUNT. EQ.IICOUNT/I 000 )«1 000 ) WRITE! NWRIT ,1000) ORFOPT 

SOR 

79 

20 


IF (ORFTEM-ORFOPT.GT. .00001 .OR. ORFOPT. GT.1 .99) GO TO 40 

SOR 

80 

21 


WRITE ( NWRIT , 1 000 ) ORFOPT 

SOR 

81 

22 


WRITE! NWRIT ,1070) IT 

SOR 

82 

23 


ORF = ORFOPT 

SOR 

83 

24 


ICOUNT = 0 

50R 

84 

25 


GO TO 50 

SOR 

65 

26 

130 

IF (ERSOR.GT.O) WRITE! NWRIT , 1 040 ) ERROR 

SOR 

66 

27 


IF ( ICOUNT. EQ. ( ICOUNT/1 000 )#1 000 ) WRITE! NWRIT , 1 080 ) ERROR, ICOUNT 

SOR 

87 

2S 


IF (ERROR. GT. .00003) GO TO 50 

SOR 

68 

29 


IF (STRFN.LE.O) RETURN 

SOR 

89 

30 

C 


SOR 

90 

31 

C PRINT STREAM FUNCTION VALUES FOR THIS ITERATION 

SOR 

91 

32 

C 


SOR 

92 

33 


IF (REDFAC.LT.1 . ) WRITE! NWRIT , 1 050 ) 

SOR 

93 

34 


IF ( REDFAC . EQ. 1 , ) WRITE! NWRIT , 1 055 ) 

SOR 

94 

35 


DO 140 IM=1 ,MM 

SOR 

95 

36 


IPU □ IV(IM) 

SOR 

96 

37 


IPL □ IV! IM* 1 )-1 

50R 

97 

39 


ITVU = ITV( IM, 1 ) 

SOR 

98 

39 


WRITE! NWRIT , 1 020 ) IM,ITVU 

SOR 

99 

40 

140 

WRITE (NWRIT, 1060) (U( IP ) ,IP=IPU,IPL ) 

SOR 

100 

41 


RETURN 

SOR 

101 

42 

C 


SOR 

102 

43 

C FORMAT STATEMENTS 

SOR 

103 

44 

C 


SOR 

104 

45 

1000 

FORMAT ( 24H ESTIMATED OPTIMUM ORF =,F9.6) 

SOR 

105 

46 

1010 

FORMAT (82H1 IT IP IP1 IP2 IP3 IP4 A(1) A(2) 

SOR 

106 

47 


1 At 3 ) A! 4 ) K) 

SOR 

107 

49 

1020 

FORMAT ( 5HKIM =,I4,6X,6HITt = ,14) 

SOR 

109 

49 

1030 

FORMAT ( 1X,I4,5I6,5F10.5) 

SOR 

109 

50 

1040 

FORMAT (6H ERROR =»F11 .8) 

SOR 

110 

51 

1050 

FORMAT ( 1H1 .10X.44HSTREAM FUNCTION VALUES FOR REDUCEO MASS FLOW) 

SOR 

111 

52 

1055 

FORMAT ( 1H1 ,10X,41HSTREAM FUNCTION VALUES FOR FULL MASS FLOW) 

SOR 

112 

53 

1060 

FORMAT ( 2X , 1 OF 1 3 .8 ) 

SOR 

113 

54 

1070 

FORMAT! 1 H ,» IT = »,I6) 

SOR 

114 

55 

1090 

FORMAT ( 8H ERROR =»G14.4,7H AFTER »I6,11H ITERATIONS) 

SOR 

115 

56 


END 

SOR 

116 

57 


SUBROUTINE VELMER 

VELMER 2 

59 

C 


VELMER 3 

59 

C VELMER CALLS VELPM AND VELBM TO CALCULATE RHO*H-SUB-M THROUGHOUT THE 

VELMER 4 

60 

C REGION AND ON THE BLADE SURFACES 

VELMER 5 

61 

C 


VELMER 6 

62 


COMMON /INPUTT/ GAM, AR, TIP, RHOIP,HTFL, OMEGA, ORF, BETAI,BETAO, 

VELMER 7 

63 


1 LAMBDA, RVTHO, REDFAC, DENT0L,F5MI,FSM0,SSM1 ,SSM2 ,MBI »MBO ,MM» 

VELMER 9 

64 


2 NBBI *NBL»NRSP,MOPT , LOPT , LRVB, BLOAT , AANDK, ERSOR,STRFN,SLCRD» 

VELMER 9 

65 


3 INTVL, SURVL, CHORD( 2 ) ,STGR( 2 ) ,RI( 2 ) ,RO( 2 ) »BETI( 2 ) ,BETO( 2 ) * 

VELMER 10 

66 


4 NSPI! 2),TITLEI(20),MR(50 ),RMSP(50 ),BESPF(50 ),MOWCR(50 I, 

VELMER11 

67 


5 PLOSS! 50 ) ,MSP( 50 , 2 ) ,TH5P( 50,2) 

VELMER 12 

69 


COMMON /CALCON/ ACTWT, ACTOMG,ACTLAM,MBIM1 ,MBIP1 ,MBOM1 ,MBOP1 ,MMM1 , 

VELMER1 3 

69 


1 HM1,HT,OTLR,OMLR, PITCH. CP, EXPON,TWH,CPTIP,TGROG,TBI»TBO,TWL, 

VELMER14 

70 


2 WI ,WMI , WCRI i ITMIN,ITMAX,NIP, IMS1 ,IMS2 ,IMS( 2 ) ,BV( 2 ) ,MLE( 2 ) , 

VELMER15 

71 


3 THLE! 2 ) »RMI( 2 ) »RMO( 2 ) ,BESP( 50 ) ,MV( 1 00 ) ,RM( 100) ,BE( 100), 

VELMER 16 

72 


4 BEF( 100) »DBDM< 1 00 ) ,DBFDM! 100),SAL(100), PLOSIMt 1 00 ) , AAA( 100), 

VELMER 17 

73 


5 BBB( 1 00 ) » IV( 1 01 ),ITV( 100, 2 ),TV( 100,2 ),DTDMV( 100,2), 

VELMER 19 

74 


6 BETAV! 100*2) >HH( 100,2) ,0TDMH( 100,2) »BETAH( 1 00 , 2 ) ,RMH( 1 00 , 2 ) , 

VELMER1 9 

75 


7 BEH! 100,2 ) , PLOSMH! 100,2) 

VELMER20 

76 


INTEGER BLDAT, AANDK, ERSOR ,STRFN,SLCRD , SURVL, AATEMP, SURF, FIRST, 

VELMER21 

77 


1 UFPER »St »ST 

VELMER22 

79 


REAL K.KAK, LAMBDA, LMAX, MH,MLE,MR, MSL, MSP, MV, MVIM1 

VELMER23 
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c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 


CALL VELPM AND VELBM THROUGHOUT THE REGION 

ITVU = ITVC 
ITVL = ITVU, 2) 

DO 10 IM=1 ,MBIM1 
10 CALL VELPMUM, ITVU, ITVL) 

DO 20 IM=MBI,MBO 
1 = 0 

20 CALL VELBN(IM) 

ITVU = ITV( MBOP1 ,1 ) 

ITVL = ITVIHBOP1 ,2 ) 

DO 30 IM=MBOPI,MM 
30 CALL VELPN( IN, ITVU, ITVL) 

RETURN 

END 

SUBROUTINE VEISUB 1 IN, ITVU, ITVU 

VEL5UB CALCULATES RHO#W-5U0-M THROUGHOUT THE REGION AND ON THE BLADE 
SURFACES. AND CALCULATES THE STREAMLINE LOCATIONS 

COMMON NR EAO , NWRIT , ITER , IEND , LER( 2 ) ,NER ( 2 ) 

COMMON /INPUTT/ GAM, AR,TIP,RHOIP,MTFL, OMEGA, ORF ,BETAI >BETAO, 

1 LAMBDA »RVTHO»REDFAC ,DENTOL,FSMI , FSMO, SSM1 , SSM2 , MBI , M0O , MM , 

2 NBBI , NB L , NRSP , MOPT , LOPT , LR VB , BLDAT , AANDK , ERSOR , STR FN , S LCRD , 

3 INTVL , SURVL, CHORD ( 2 ) ,STGR( 2 ) ,RI ( 2 ) ,RO( 2 ) *BET1( 2 ) ,BETO( 2 ) , 

A NSPI( 2 ) ,TITLEI( 20 ) ,MRl 50 ) ,RMSP( 50 ) ,BESPF( 50 ) , WOWCRl 50 ) , 

5 PLOSSt 50 ) , MSP( 50,2), THSP( 50,2) 

COMMON /CALCON/ ACTWT,ACTOMG»ACTLAM,MBIH1 ,MBIP1 ,MBOM1 ,MBOP1 ,MMM! , 

1 HM1 »HT ,DTLR ,DMLR , PITCH, CP, EXPON,TWW,CPTIP,TGROG,TBI ,TBO,TWL, 

2 WI , HNI ,HCRI ,ITMIN,ITMAX,NIP,IMS1 ,IMS2 ,XMS1 2 ) ,BV1 2 ) ,MLEl 2 ) , 

3 THLEl 2 ) ,RMI { 2 ) ,RMO( 2 ) ,BESP( 50 ) ,MV( 1 00 ) ,RM( 100), BE (100), 

A 6EF( tOO ) ,DBDMt 100 ),D8FDM( 1 00 ) >SALt 1 00 ) ,PLOSIM( 100) ,AAA( 100), 

5 BBBt 1 00 ) ,IV( 101 ) ,ITV( 1 00 , 2 ) ,TV( 1 00 , 2 ) ,DTDMV( 100,2), 

6 BETAV1 100,2 ),MH( 100,2 ) ,0TDMHl 100,2 ) ,BETAH( 100,2 ) ,RMHl 100,2 ) , 

7 BEH( 100,2 ),PLOSMH( 100,2) 

COMMON /AUKRHO/ A 1 2500, A), UC 2500 ),K( 250 0),RHO( 2500) 

LEVEL 2, A»U,K »RHO 

COMMON /VAR COM/ RHOHB1 100,2) ,RHOVB( 1 00 , 2 ) , WMBU 00 , 2 ) , WTB( 1 00 ■ 2 > , 

1 WWCRM1 100*2), LABEL( 1,100) 

DIMENSION U( 2500 ) ,BETA( 2500 ) ,DUDT< 2500 ) »DUOTT( 2500 ) , AAP( 2500 ) , 

1 BBPt 2500 ) 

LEVEL 2, H,BETA,DUDT >DUDTT»AAP,BBP 

EQUIVALENCE (A,H),( AU ,2 ),BETA) ,( Alt ,3) ,DUDT > ,( At 1 ,A ) ,DUOTT > , 

1 (K.AAP) »(RHO,BBP) 

COMMON /SLCOM/ USLt 100,11) ,TSL( 100,11) 

LEVEL 2, USL»TSL 

COMMON /PLTCOM/ TSLPTU1 00 ) ,XDOWN( A00 ) ,YACROS( AOQ ) 

LEVEL 2, TSLPT »XD0HN, YACROS 

DIMENSION TSP( 51 ) ,USP( 51) ,DDTt 51 ) ,UINT< 1 1 ) ,TINTU1 ) 

INTEGER BLOAT, AANDK, ERSOR, STRFN,SLCRD, SURVL, AATEMP, SURF, FIRST, 

1 UPPER, SI, ST 

REAL K , K AK , LAMBDA , LMAX ,HH ,MLE , HR , MSI , MSP , MV , MVIM 1 

VELPM CALCULATES ALONG VERTICAL MESH LINES WHICH DO NOT 
INTERSECT BLADES 


ENTRY VELPM 
5 NSL = 5 

NSLM1 = NSL-1 


LOC n 0 

NSP = ITVL-ITVU*2 
IP = IV( IM )- 1 
DO 10 ITU, NSP 
IP = IP+1 

TSPUT) = FLOATUTUTVU-1 )*HT 
10 USP(IT) = U(IP) 

USP(NSP) = U5P( 1 )M . 

IP = IV(IM) 

INTU = INT ( U( IP )#F LOAT t NSLM1 ) ) 

IF (U(IP).GT.O. ) INTU=INTUM 
DO 20 JU.NSLM1 

UINTU) s FLOATC INTU )/FLOAT( NSLM1 ) 

20 INTU = INTU* 1 

UINT1NSU - UINTU ) 

CALL SPLIPRIHT.USP, NBBI, ODT, AAA) 

GO TO 100 
C 

C VELBM CALCULATES ALONG VERTICAL MESHLINES WHICH INTERSECT BLADES 
C 

ENTRY VELBM 
LOC = 1 

ITVUPt = ITV( IM, 1 ) 

ITVLM1 = ITV( IM, 2 ) 

ITVU □ ITVUPt - 1 
ITVL = ITVLM1+1 
N5P = ITVL-ITVU* 1 
TSP( 1 ) = TV( IM, 1 ) 

TSP(NSP) □ TV C IM»2 ) 

USP( I ) = BV(I) 

USP1N5P) = BV12) 

IP = IV( IM )-1 

N5PM1 = NSP-1 

IF ( 2.GT.NSPM1 ) GO TO 70 

DO 60 IT=2,NSPM1 

IP = IP+1 

TSP(IT) = FLOAT( IT+ITVU-1 )#HT 
60 USP(IT) = U(IP) 

70 DO BO 1=1 »NSL 

80 UINTU) = FLOAT(I-t )/FLOAT( NSLM1 ) 

CALL SPLINE (TSP,USP, NSP, DDT ,AAA ) 

C 

C FOR VELPM AND VELBM, CALCULATE RHO*W-SUB-M IN THE REGION 
C FOR VELBM, CALCULATE RHO*W AT VERTICAL MESH LINE INTERSECTIONS WITH 
C BLADE SURFACES 
C 

100 CONTINUE 
IT = LOC 
IPU = IV(IM) 

IPL = IVUM+1 )-1 
DO 110 IP=IPU» IPL 
IT = IT+1 

DUDTf IP ) = DOT(IT) 

110 DUDTTUP) = AAAI IT) 

120 IF ( LOC.EQ.O) GO TO 130 

WMB( IM, 1 ) = DDTm*WTFL/eE(IM)/RMUM) 

WMBt IM, 2 ) = DDT(N$P)*WTFL/BEUM)/RHUM) 

RMDTU2 □ \ RMI lt1)*DT0MVt IM, 1 ) )#*2 
RMDTL2 = (RMUH)»OTOMVUM,2))##2 
IF (RH0TU2.GT. 10000. ) WMO(IM,1) = 0. 


VEL5U0A6 
VEISUBA7 
VEISUB'* B 
VELSUBA9 
VEL5UB50 
VELSUB51 
VEL5UB52 
VELSUB53 
VELSU05A 
VELSUB55 
VELSUB56 
VELSUB57 
VELSUD56 
VELSUB59 
VELSUB60 
VELSUB61 
VELSUB62 
VELSUB63 
VEL5U86A 
VELSUB65 
VELSUB66 
VELSUB67 
VELSUB68 
VELSUB69 
VELSUB70 
VELSUB71 
VELSUB72 
VELSU873 
VELSU87A 
VELSUB75 
VELSUB76 
VELSUB77 
VELSUB78 
VELSUB79 
VEISUBSO 
VELSUB81 
VELSUB82 
VELSUB83 
VELSUBBA 
VELSUB65 
VELSUBB6 
VELSUBB7 
VELSUDBB 
VELSUB89 
VELSUB90 
VELSUB91 
VELSUB92 
VELSUB93 
VELSUB9A 
VELSUB95 
VEISUB96 
VELSUB97 
VELSUB98 
VELSUB99 
VELSU100 
VELSU101 
VELSU1 02 
VELSU103 
VELSU10A 
VELSU105 
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IF (RM0TL2 ,GT. 10000 . ) WMB(IM,2J = 0. 

HMB(IM,1) = WMBCIM.1 ]#SQRT(1 . +RMDTU2 > 

WMBIIM.2) s WMBC IM,2)*SQRT(1 . +RMDTL2) 

130 IF ISLCPD.LE.O) RETURN 

CALL SPLINT(USP,TSP,N5P,UINT,NSL, TINT, AAA, BBB) 

DO WO J=1 ,NSL 
USL(IM.J) = UINT(J) 

TSL(IM,J) = TINT(J) 

L = (J-1 )*MM+IM 
WO TSLPT(L) = TINKJJ 
RETURN 
END 

SUBROUTINE VELTAN 
C 

C VELTAN CALCULATES RHO*W-SUB-THETA AND THEN RHO*H THROUGHOUT THE 
C REGION AND ON THE BLADE SURFACES, AND CALCULATES BETA 
C THROUGHOUT THE REGION 
C 

COMMON NREADpNWRIT , ITER » IEND , LER ( 2 ) ,NER( 2 ) 

COMMON /INPUTT/ GAM , AR , TIP ,RHOIP ,WTF L .OMEGA ,ORF .BETAI ,BETAO , 

1 LAMBDA , RVTHO ,REDFAC , DENTOL » FSMI , FSMO , 55M1 , SSM2 ,MBI »MBO»MM» 

2 NBBI ,NBL >NR5P»M0PT , LOPT , LRVB , BLOAT , AANDK , ERSOR , STRFN,SLCRD , 

3 INTVL , SURVL » CHORD ( 2 ) ,STGR( 2 ) ,RI( 2 ) ,R0( 2 ) , BETH 2 ) .BETOt 2 ) , 

A NSPI t 2 ) pTITLEH 20 ) ,MR( 50 ) ,RMSP( 50 ) ,BESPF( 50 ) ,WOWCRl 50 ) , 

5 PL05S1 50 ) ,MSP( 50»2),THSP(50,2) 

COMMON /CALCON/ ACTWT , ACTOMG , ACT LAM , MBIM 1 ,MBIP1 ,MBOM1 ,MBOP1 ,MMM1 , 

1 HM1 ,HT,DTLR,DMLR, PITCH, CP, EXPON,TWH,CPTIP,TGROG,TBI,TBO,THL, 

2 WI i WMI ,NCRI » ITMIN, ITMAXjNIP , IMS! , IMS2 , 1 MSI 2 J ,BV( 2 ) ,MLE( 2 ) , 

3 THLE ( 2 ) ,RMI( 2 ) ,RM0( 2 ) ,BESP( 50 ) ,MV( 100) >RM( 1 00 ) »BE( 1 00 ) , 

4 BEF( 100) ,DBDM( 1001 ,DBFDM( 100), SAL ( 100) »PLOSIM( 100) , AAA( 100), 

5 BBB( 1 0 0 ) i IV( 101 ) , ITV( 1 00 , 2 ) ,TV(1 00 , 2 ) .DTDMVt 100,2), 

6 BETAV( 100,2 ),MHM 00,2), DTDMHM 00,2), BETAHM 00,2), RMH( 100,2), 

7 BEHf 100,2 ),PLOSMH( 100,2) 

COMMON /AUKRHO/ A( 2500 ,4 ) ,U( 2500 ) ,K( 2500 ) ,RH0( 2500 ) 

LEVEL Z, A,U,K»RHO 

COMMON XVARCOM/ RHOHBt 100,2) »RHOVB( 100,2) , WMB( 100,2 ) , WTB( 100,2), 

1 WWCRM1 100,2 ) ,LABEL( 1,100) 

DIMENSION N( 2500 ) ,BETAl 2500 ) ,DUDT( 2500 ) ,DUDTT( 2500 ) ,AAP( 2500 ) , 

1 BBP( 2500 ) 

LEVEL 2, H,BETA,OUOT,DUDTT,AAP,BBP 

EQUIVALENCE (A,W),(A( 1 ,2 ) , BETA ) , l Al 1 ,31 ,OUOT ) , ( A( 1 ,4),DUDTT), 

1 ( K , AAP ) , ( RHO»BBP ) 

DIMENSION SPMl 1 00 ) *USP( 1 00 ) , DDK 100) ,DUDM( 100) ,DUDHM( 100), 

1 OUOTMnOO),DWDMMOO),WIP( 100) 

INTEGER B LDAT , AANDK , ERSOR ,STRFN , SLCRD , SURVL , AATEMP , SURF , FIRST , 

1 UPPER, SI, ST 

REAL K ,K AK , LAMBDA , LMAX ,MH ,MLE , MR ,M5L ,M5P ,MV »MVIM 1 
EXTERNAL BL1 ,BL2 
C 

C PERFORM CALCULATIONS ALONG ONE HORIZONTAL LINE AT A TIME 
C 

IT B ITMIN 

10 IF (IT.GT.ITMAX) RETURN 
St = 0 
C 

C ON THE GIVEN HORIZONTAL MESH LINE, FIND A FIRST POINT IN THE REGION 
C 

IF ( IT.GE .0. AND -IT. LT.NBBI ) GO TO 60 
IM = MBIM1 
20 IM = IMM 


VELSU106 
VEL5U107 
VELSU108 
VELSU109 
VELSU1 10 
VELSUJ 1 I 
VELSU1 12 
VELSU113 
VEI.SU1 14 
VELSU1 1 5 
VELSU1 16 
VELSU117 
VELTAN 2 
VELTAN 3 
VELTAN A 
VELTAN 5 
VELTAN 6 
VELTAN 7 
VELTAN 0 
VELTAN 9 
VELTAN10 
VELTAN1 1 
VELTAN 12 
VELTAN1 3 
VELTANW 
VELTAN1 5 
VELTAN 16 
VELTAN 17 
VELTAN1 8 
VELTAN 19 
VELTAN20 
VELTAN21 
VELTAN22 
VELTAN23 
VELTAN24 
VELTAN25 
VELTAN26 
VELTAN27 
VELTAN28 
VELTAN29 
VELTAN30 
VELTAN31 
VELTAN32 
VELTAN33 
VELTAN34 
VELTAN35 
VELTAN36 
VELTAN37 
VEL7AN38 
VELTAN39 
VELTANAO 
VELTANA 1 
VELTANA2 
VELTANA3 
VELTANAA 
VELTANA5 
VELTANA& 
VELTANA7 
VELTANA8 
VELTANA9 


IF ( IM.GT.MBOP1 ) GO TO 200 
SURF = 1 

IF ( IT.GE. IT VI IM, 1 ) . AND . IT . LT . ITV( IM-1 , 1 ) ) GO TO 70 
IF t IM. EQ.MBOP1 .AND . IT.EQ.ITVIMBO, 1 )-l «AND . ITV( MBO, 1 )-ITV(MBO,2 ) 
1 +NBBI.EQ.2) GO TO 70 
SURF - 2 

IF ( IT. LE . ITV( IM, 2 ) . AND . IT . GT .ITV( IM-1 ,2 ) ) GO TO 70 
GO TO 20 
C 

C FIRST POINT IS ON BOUNDARY A-H 
C 

60 IM1 B 1 
IM = 1 

SPMl 1 ) = MV( 1) 

USP (1) = UtIT+1 ) 

GO TO 90 
C 

C FIRST POINT IS ON A BLADE SURFACE 
C 

70 SI = SURF 

imi = m i 

IM2 = IM 

TH B FLOAT! IT )*HT 
MVIM1 = MV( IM1 ) 

IF ( IM. EQ.MBIP1 ) MVIM1 = MVIM1 ♦( MV( IM2 )-MVIM1 1/1000. 

LERI 2) = 5 

C BLCD (VIA ROOT) CALL NO. 5 

IF (SI .EQ. 1 .AND . IMI .NE .MBO ) CALL ROOKMVIM1 ,MV( IM2 ) ,TH ,BL1 »DTLR , 
1 ANS , AAA ) 

LER ( 2 ) = 6 

C BLCD (VIA ROOT) CALL NO. 6 

IF (S1.EQ.2) CALL ROOK MVIM1 ,MV( IM2 ) ,TH >BL2 ,DTLR , ANS, AAA ) 

IF (SI .EQ. 1 .AND. IM! .EQ. MBO) ANS = MV(MBO) 

5PM( IMI ) B ANS 
USPIIM1 ) a BV( SI ) 

C 

C MOVE ALONG HORIZONTAL MESH LINE UNTIL MESH LINE INTERSECTS BOUNDARY 
C 

90 IF ( IM . LT . MBI . OR . IM . GT . MBO ) GO TO 120 
SURF = 1 

IF ( IT . LT . ITV( IM »SURF ) . AND .IT.GE. ITVt IM- 1 , SURF ) ) GO TO WO 
SURF B 2 

IF (IT. GT.ITVdM, SURF). AND. IT, LE.ITV( IM-1, SURF)) GO TO WO 
120 SPM(IM) = MV(1M) 

IP = IPF(IH.IT) 

USP(IM) = U(IP) 

IF (IM.EQ.MM) GO TO 130 
IM = IM+1 
GO TO 90 
C 

C FINAL POINT IS ON BOUNDARY D-E 
C 

130 IMT - MM 
GO TO 150 
C 

C FINAL POINT IS ON A BLADE SURFACE 
C 

WO ST = SURF 
IMT = IM 
IMTM1 = IMT- 1 


VELTAN50 
VELTAN51 
VELTAN52 
VELTAH53 
VELTAN54 
VELTAN55 
VELTAN56 
VELTAN57 
VELTAN5B 
VELTAN59 
VELTAN60 
VELTAN61 
VELTAN62 
VELTAN63 
VELTAN64 
VELTAN65 
VELTAN66 
VELTAN67 
VELTAN66 
VELTAU69 
VELTAN70 
VELTAN71 
VELTAN72 
VELTAN73 
VELTAN74 
VELTAN75 
VELTAN76 
VELTAN77 
VELTAN78 
VELTAN79 
VELTAN0O 
VELTAN31 
VELTAN02 
VELTAN33 
VELTAN04 
VELTAN85 
VELTAN86 
VELTAN37 
VELTANB8 
VELTAN39 
VELTAN90 
VELTAN91 
VELTAN92 
VELTAN93 
VELTAN94 
VELTAN95 
VELTAN96 
VELTAN97 
VELTAN90 
VELTAN99 
VELTA100 
VELTA1 01 
VELTA102 
VELTA1 03 
VELTA104 
VELTA105 
VELTA1 06 
VELTA107 
VELTA1 00 
VELTA1 09 



TH = FLOAT! IT )*HT 
MVIM1 ,s MVIIMTM1 ) 

IF I IM.EQ.MBIP1 ) MVIM1 = MVIM1 ♦( MVI IMT l-MVIMI 1/1000 . 

LERI2) = 7 

C BLCD (VIA ROOT) CALL HO. 7 

IF I ST . EQ . 1 . AND . IMT . NE . MBI ) CALL ROOT! MVIM1 . MVI IMT ) .TH.BL1 , 

J DTLR , ANS » AAA ) 

LER12) = 8 

C BLCD (VIA ROOT) CALL NO. 8 

IF (5T.EQ.2) CALL ROOTIMVIM1 ,MV(IMT),TH,BL2,DTLR»ANS,AAA) 

IF (ST.EQ.1.AND.IMT.EQ.MBI) AN5=MV(MBI) 

SPM(IMT) = ANS 
U5P( IMT ) = BV(ST) 

150 N5P = IMT-IM1+1 

CALL 5PLINEI SPH( Ihl ) ,USP( IMI ) ,NSP,DUOM( IMI ) .DUOMMI IH1 ) ) 

C 

C CALCULATE RHO»H ON THE BLADE SURFACES 
C 

FIRST = 1 
LAST = mm 

IF (Ml .EQ.1 ) GO TO 160 
FIRST = IH2 

CALL SEARCH (SPMI IMI )»31 »IHS) 

ans = ouomim )»htfl/behuhs,si ) 

IF (S1.EQ.2) AN5=-AN3 

HTBI IHS, 51 ) = ANS»»SQRT(1.*1./(RMH(IH3»Sn«DTDMH(IHS,Sm**«2) 
DDTIIMl) = -DUDMI IMI )/DTDMH( IHS, SI ) 

HIP! IMI) = HTB( IHS, SI )/RHOHB( IHSiSI ) 

160 IF (IMT.EQ.m) GO TO 170 
LAST = IMTM1 

CALL SEARCH I SPMI IMT) , ST , IHS) 

ANS = DUDMt IMT )«HTFL/BEHI IHS » ST ) 

IF (ST.EQ.1 ) ANS=-ANS 

HTBI IHSfST ) * ANS«5HRT< 1 . +1 ./(RMHI IH3,ST )*DTDMH( IHS,ST ) )**Z ) 
DDT(IMT) = -DUDMI IMT )/DTDMH( IHStST ) 

HIP(IMT) * HTB( IHSfST )/RHOHB( IHStST ) 

C 

C CALCULATE RHO»H-SLC-THETA ANO THEN RHO*H AND BETA IN THE REGION 
C 

170 IF ( FIRST, GT. LAST) GO TO 190 
00 180 I=FIR3T i LAST 
IP = IPF( I t IT ) 

ODT(I) = DUDT(IP) 

RHM = DDT( I )/RM( I ) 

RHT = -DUDMI I ) 

HI IP) = 5QRT(RHT»m» 2*RHN*»»2)/BE(I)«HTFL 
THLMR = 2.*OMEGA*LAMBDA-(OMEGA*RM(I>)»»2 
RHOIPL = RHOIP*! 1 . -PLOSIMt I ) ) 

LER1 1 ) = 6 

C DENSTT CALL NO. 6 
RHOTEM=RHO( IP) 

HTEM=H( IP) 

CALL DENSTTIMTEM, RHOTEM, ANS, THLMR, CPTIP.EXPON, RHOIPL, GAM, AR. TIP, 
1 JZ) 

RHO( IP )=RHOTEM 
H( IP )=HT£M 
H( IP ) = ANS 
HIPII) a HIIP) 

BETAIIP) = AT AN2I RHT, RWM)»57. 295779 
180 CONTINUE 


VELTA110 
VELTA1 1 1 
VELTA112 
VELTA113 
VELTA1I4 
VELTA1 15 
VELTA116 
VELTA117 
VELTA1 18 
VELTA1 19 
VELTA1 20 
VELTA121 
VELTA122 
VELTA123 
VELTA124 
VELTA125 
VELTA1 26 
VELTA1 27 
VELTA128 
VELTA129 
VELTA1 30 
VELTA1 31 
VELTA1 32 
VELTA133 
VELTA1 34 
VELTA1 35 
VELTA1 36 
VELTA137 
VELTA138 
VELTA1 39 
VELTA140 
VELTA14I 
VELTAI42 
VELTA143 
VELTA144 
VELTA145 
VELTA144 
VELTA147 
VELTA148 
VELTA149 
VELTA150 
VELTA151 
VELTA152 
VELTA153 
VELTA154 
VELTA1S5 
VELTA156 
VELTAI57 
VELTA158 
VELTA159 
VELTA160 
VELTA161 
VELTA162 
VELTA163 
VELTA164 
VELTAI65 
VELTA166 
VELTA167 
VELTA168 
VELTA169 


.H 

■vj 

LD 


IF (IEND.LT.O) GO TO 190 

CALL SPLINE I SPMI IMI ) ,DDTl IMI ) .HSP.DUDTMI IMI ) , AAAI IMI ) ) 

CALL SPLINE I SPIll IMI ) ,HIP( IMI ) »NSP,DHDM( IMI ) , AAAI IMI ) ) 

DO 185 I^FIRST , LAST 
IP = IPFtl.IT) 

SBETA = SIN! BETA! IPJ/57. 295779) 

CBETA □ SQRTI 1 .-SBETA**2) 

AAP(IP) = SBETA*w2»(2.#DUDTrtm/DUDHtI)-DUDTtIP)/DUDMlI)*i*2* 

1 DUDMMI I )-DUDTT( IP l/DUDTI IP ) MSALI I )#5BETA/CBETA»I 1 . +CBETA»*2 ) 
BBP(IP) = Rmi)/CBETA*(2.*ACTOf1G*SAL(I)+SBETA*DHDM(I)/REDFAC) 

185 CONTINUE 
190 CONTINUE 

IF I IMT. NE. MM) GO TO 20 
200 IT = IT+1 
‘ GO TO 1 0 
END 

SUBROUTINE SEARCH I DIST , SURF, IS) 

C 

C SEARCH LOCATES THE POSITION OF A GIVEN VALUE OF M IN THE MH ARRAY 
C 

COMMON NREAD,NWRIT,ITER,IEND»LER( 2 ) ,NER( 2 ) 

COMMON /CALCON/ ACTHT , ACTOMG, ACTLAM,MBIMI »MBIP1 ,MBOM1 ,MB0P1 ,MMM1 , 

1 HM1 ,HT ,OTLR »DMLR , PITCH , CP, EXPON,THH,CPTIP,TGROG,TBI ,TBO,THL , 

2 HI ,HMI ,WCRI,ITMIN,ITMAX,NIP,IMS1 ,IMS2 ,IMSI 2 ) ,BV( 2 ) ,MLE( 2 ) , 

3 THLEI 2 ) ,RMI( 2 ) ,RMOI 2 ) »BESPI 50 ) ,MV( 100) *RM( 100 ) ,BE( 1 00 ), 

4 BE F I 1 00 ) ,DBDM( 1 00 ) ,DBF0M( 1 00 ) ,SAL( 1 00 ) ,PL05IMM 00 ) , AAA1 1 00 ) , 

5 BBBI 100) ,IV( 1 01 ),ITV( 1 00,2 ),TV( 100,2 ),DT0MV( 100,2), 

6 BETAVl 1 00, Z ), MHI 100,2 ),DTDMH( 100,2 ),8ETAH(1 00,2), RMHI 100,2), 

7 BEHI 100,2 ) ,PLOSMH( 100,2) 

INTEGER BLDAT,AANDK,ERSOR,STRFN,SLCRD,SURVL,AATEMP, SURF, FIRST, 

1 UPPER, SI, ST 

REAL K.KAK, LAMBDA, LMAX,t1H,MLE, MR, MSL, MSP, MV, MVIM1 
DO 10 1=1,100 

IF I ABSI MHI I, SURF l-DIST ) .GT.OMLR ) GO TO 10 
IS = I 
RETURN 
10 CONTINUE 

HRITEI NHRIT , 1 000 ) DIST, SURF 
STOP 


VELTA1 70 
VELTA171 
VELTA172 
VELTA1 73 
VELTA1 74 
VELTA175 
VELTA176 
VELTA177 
VELTAI78 
VELTA1 79 
VELTA180 
VELTA1 81 
VELTA1 82 
VELTA183 
VELTA184 
VELTA1 85 
SEARCH 2 
SEARCH 3 
SEARCH 4 
SEARCH 5 
SEARCH 6 
SEARCH 7 
SEARCH 8 
SEARCH 9 
SEARCH 1 0 
SEARCH1 1 
SEARCH 12 
SEARCH1 3 
SEARCH14 
SEARCH1 5 
SEARCH16 
5EARCH17 
SEARCH18 
SEARCH1 9 
SEARCH20 
SEARCH21 
SEARCH22 
SEARCH23 
5EARCH24 


1000 FORMAT ( 30HL SEARCH CANNOT FIND M IN THE MH ARRAY/7H DIST = ,G1 4.6 , SEARCH25 


1 10X»6HSURF =,G14.6) SEARCH26 

END SEARCH27 

SUBROUTINE STRLIN 5TRLIN 2 

C STRLIN 3 

C STRLIN CALCULATES, PRINTS, ANO PLOTS THE STREAMLINE OUTPUT DATA STRLIN 4 

C STRLIN 5 

COMMON NREAD ,NHRIT,ITER »IENO »LER( 2 ) »NER( 2 ) STRLIN 6 

COMMON /INPUTT/ GAM, AR, TIP, RHOIP,HTFL, OMEGA, ORF ,BETAI ,BETAO, STRLIN 7 

1 LAMBDA, RVTHO,REDFAC,DENTOL,FSMI,F5MO,5SM1,SSM2, MBI, MBO, MM, STRLIN 8 

2 NBBI ,NBL,NRSP,MOPT , LOPT, LRVB,BLDAT , AANDK,ERSOR ,5TRFN,5LCRD , STRLIN 9 

3 INTVL.SURVL, CHORD ( 2 ) ,STGR( 2 ) ,RI( 2 ),RO( 2 ) ,BETI( 2 ) ,BETO( 2 ) , STRLIN1 0 

4 NSPI( 2 ) .TITLEII 20 ) ,MR( 50 ) ,RMSP( 50 ) ,BESPF( 50 ) ,H0WCR( 50 ) , STRLIN1 1 

5 PLOSSI 50 ) »MSPl 50,2 ) »THSPI 50,2) STRLIN1 2 

COMMON /CALCON/ ACTHT ,ACT0MG * ACTLAM,MBIM1 ,MBIP1 ,MB0M1 ,MBOP1 ,MMM1 , 5TRLIN13 

1 Httl ,HT, DTLR ,DNLR, PITCH, CP, EXPOS, TWH»CPTIP,TGROG,TBI,TBO,THL, STRLIN14 

2 HI ,HMI ,WCPI , ITMIN, ITMAX,NIP, IM51 ,IMS2,IM5t 2 ),BV( 2 ) ,MLE( 2 ), STRLIN15 

3 THLEt 2 ) »RMI( 2 ) ,RM0( 2 ) ,BESPI 50 ) ,MVI 1 00 ) ,RM( 1 00 ) ,BE( 100), STRLIN16 

4 BEFI 100), DBDMI 100), DBFDM1 100), SAL1 100), PLOSIMt 100), AAAI 100), STRLIN1 7 

5 BBB1 100 ) ,IV( 101 ),ITV( 100,2 )»TV( 100,2 ) ,DTDMV( 100,2 ) , STRLIN1 8 

6 BETAVl 100,2 ),MH( 100,2 ),DTDMH(1 00,2), BETAH1 100,2 ),RMH( 100,2), STRLIN1 9 
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c 

c 

c 


c 

c 

c 


c 

c 

c 


7 BEH( 100, 2),PLOSMH( 100,2) STRLIN20 

COMMON /SLCOM/ USL( 1 00, 11 ) ,TSL( 1 00 , 1 U STRLIN21 

LEVEL 2. USL»TSL STRLIN22 

COMMON /PLTCOH/ TSLPT! 1 1 00 ) .XOOWN! 400 ) » YACROSt 400 ) STRLIN23 

LEVEL 2 > TSLPT, XDOWN.YACROS STRLIN24 

COMMON /DUM1/ MSL! 100) STRLIN25 

LEVEL 2, MSL STRLIN26 

OIMENSION DTDM! 100) ,D2TDM2! 100) »KKK( 24 ) »P(1 1 ) STRL1N27 

INTEGER BLDAT, AANDK ,ERSOR ,STRFN,SLCRD »SURVL, AATEMP»SURF » FIRST > STRLIN28 
1 UPPER, St, ST STRLIN29 

REAL K,KAK, LAMBDA, LMAX,MH,MLE, MR, MSL, MSP, MV, MVIM1 STRLIN30 

DATA KKK( 4 )/1H»/,KKK( 6 )/lH*/,KKKl 8 )/1H»/ >KKKl 1 0 >/1H»/ >KKK! 1 2 )/1H*/STRLlN31 


,KKK( 14)/1H»/,KKK( 16 )/lH*/ ,KKK( 18 >/1H*/,KKK! 20 J/1H*/, 
KKK! 22 )/1H*/,KKK( 24 )/1H*/ 


CALCULATE AND PRINT STREAMLINE OUTPUT DATA 

IF (5LCRD.LE.0) RETURN 
NSL = 5 

MMBL = MBO-MBl+1 

RADDEG = 180. /3. 1415927 

IF (REDFAC.LT. 1 . ) WRITE! NWRIT ,1000) 

IF (REDFAC. EQ.t . ) WRITE! NWRIT , 1 01 0 ) 

DO 70 J=1,NSL 
TSLTEM=TSL( MBI , J I 

CALL SPLINE! MV( MBI ) , TSLTEM, MMBL, DTDMt MBI ) ,D2TDM2(MBI ) ) 

TSL! MBI » J )=T5LTEM 
WRITE! NWRIT, 1020) J 
DO 40 IM=1 ,MBIM1 

40 WRITE! NWRIT, 1030) IM»MV( IM1 »RM! IMl ,USL! It1> J ) *T5L! IM, J ) 

DO 50 IM=MBI »MBO 

BETASL = ATAN(RM(IM)*DTDmiM))wRADOEG 

CURVSL = (RM(IM>«D2TDM2!1H)*SAL(IM)*DTDM!IM))/(1.MRM(IM)* 

1 DTDM! IM ) )**2 )**1 .5 

IF (DTDM! IM1.NE.0. ) DTDMN=*1 ./RM( IM)«*2/DTDM( IM) 

IF (DTDM! IM) .EQ.O . 1 DTDMN=1.E10 

50 WRITE! NWRIT, 1040 ) IM.MV! IM) ,RM( IM ) ,USL( IM, J ) ,TSL( IM, J ) ,DTDM( IM > , 
1 DTDMN, BETASL, CURVSL 
DO 60 IM=MB0P1 ,MM 

60 WRITE! NWRIT ,1030) IH.MVt IM ) ,RM( IM ) ,USL( IM , J ) ,TSL( IM, J ) 

70 CONTINUE 

PLOT STREAMLINES 

KKK! 1 ) = 7 
KKKl 2 ) = NSL 
KKK! 3) = MM 
P( 1 ) = 1 . 

Pt 3 ) = 0. 

P! 4 ) = 0. 

DO 80 IM=1 ,MM 
80 MSL! IM ) = MV! IM ) 

IF (REDFAC.LT.!.) WRITE! NWRIT , 1 050 ) 

IF ( REDFAC . EQ. 1 . ) WRITE I NWRIT, 1 060 ) 

CALL PLOTMY ( MSL , TSLPT ,KKK »P ) 

WRITE! NWRIT ,1070) 

RETURN 

FORMAT STATEMENTS 


STRLIN32 

STRLIN33 

STRLIN34 

STRLIN35 

STRLIN36 

STRLIN37 

STRLIN38 

STRLIN39 

STRLIN40 

STRLIN41 

STRLIN42 

STRLIN43 

STRLIN44 

STRLIN45 

STRLIN46 

STRLIN47 

STRLIN48 

STRLIN49 

STRLIN50 

STRLIN51 

STRLIN52 

STRLIN53 

STRLIN54 

STRLIN55 

STRLIN56 

STRLIN57 

STRLIN58 

STRLIN59 

STRLIN60 

STRLIN6 I 

STRLIN62 

STRLIN6 3 

STRLIN64 

S7RLIN65 

STRLIN66 

STRLIN67 

STRLIN68 

STRLIN69 

STRLIN70 

5TRLIN71 

STPLIN72 

STR' IN73 

STRl IN74 

STRLJN75 

STRLIN76 

STRLIN77 

STR LIN 7 8 

STR LINT 9 


1 000 FORMAT ( 1 HI , 2X ,44HSTRE AMLINE COORDINATES FOR REDUCED MASS FLOW) 
1010 FORMAT l 1H1 , 2X ,41 HSTREAMLINE COORDINATES FOR FULL MASS FLOW) 

1020 FORMAT ( ////4X, 1 4HSTREAMLINE NO.,I3,23H - WITHIN BLADE REGION// 

1 8X,2HIM,8X, 1HM, 14X, 1 HR , 1 3X , 3HUSL, 1 2X, 3HTSL, 1 2X.4HDT0M, 1 0X, 

2 5HDTDMN , 1 OX ,6HBETASL , 9X , 6HCURVS L ) 

1030 FORMAT ( 7X» 13 ► 2G1 5 . 5 , 3X ,F 7 . 3 ,5X ,G1 5 . 5 ) 

1040 FORMAT ( 7X , 13 , 2G1 5 . 5 , 3X, F7. 3 , 5X , 3G1 5 . 5 , 3X, F7. 2 ,5X ,G1 5. 5 ) 

1050 FORMAT ( 1 HI , 50X , 3DHSTREAMLINE PLOTS FOR REDUCED MASS FLOW) 

1060 FORMAT ( 1 HI ,50X , 35HSTREAMLINE PLOTS FOR FULL MASS FLOW) 

1070 FORMAT ( /4QX, 70HSTRE AM LINES ARE PLOTTEO WITH THETA ACROSS THE 

1 PAGE AND M DOWN THE PAGE) 

END 

SUBROUTINE OUTPUT 
C 

C OUTPUT CALLS SUBROUTINES TO CALCULATE DENSITIES AND VELOCITIES 
C THROUGHOUT THE REGION AND ON THE BLADE SURFACES, AND IT PLOTS 
C THE SURFACE VELOCITIES 
C 

DIMENSION PRES! 100,2), PRATIO! 100,2), XVDIM! 100), CPT! 100,2) 

COMMON NREAD , NWRIT , ITER , IEND »LER( 2 ) »NER( 2 ) 

COMMON /INPUTT/ GAM , AR , TIP .RHOIP ,WTFL .OMEGA ,ORF , BETAI , BETAO, 

1 LAMBDA , RVTHO .REDFAC , D ENTOL , F SMI , F SMO , SSM1 , SSM2 , MBI , MDO , MM , 

2 NBBI,NBL,NRSP,MOPT,L0PT,LRVB, BLDAT, AANDK, ERSOR.STRFN.SLCRD, 

3 INTVL.SURVL , CHORD! 2 ) ,STGR( 2)»RI(2),RO!2) ,BETI( 2 ) ,BETO( Z ) » 

4 NSPI (2), TITLE 1(20), MR 150) >RMSPI 50 ) »BE5PFl 50 ) ,W0WCRt 50 ) , 

5 PLOSS! 50 ) >M5P( 50,2),THSP(50,2) 

COMMON /CALCON/ ACTWT , ACTOMG , ACTLAM.MBIM1 ,MBIP1 ,MBOM1 ,MBOP1 »MMM1 , 

1 HM1 ,HT,DTLR,DMLR, PITCH, CP, EXPON,TWW,CPTIP,TGROG,TBI,TBO,TWL» 

2 WI , WMI , WCRI , ITMIN , ITMAX , NIP, IMS 1 ,IMS2,IMS( 2 ),BV( 2 ),MLE( 2 ), 

3 THLEm ,RMI(2),RM0( 2 ) ,BESP( 50 ) ,MV( 1 00 ) ,RM( 1 00 ) , BE! 1 00 ) , 

4 BEF! 100),DBDM( 1 00 ) , DBFDMM 00 ) ,SAL( 1 00 ) , PLOSIM! 1 00 ) ,AAA( 100), 

5 BBB! 100), I V ( 101 ) , ITV! 1 00 , 2 ) , TV! 1 00 , 2 ) ,DTDMV( 1 00 , 2 ) , 

6 BETAVI 100,2 ) ,MH( 1 00 , 2 ) , DTDMH! 1 00 , 2 ) , BETAHl 1 00 , 2 ) ,RMH( 1 00 , 2 ) , 

7 BEH! 100,2), PLOSMH! 100,2) 

COMMON /VARCOM/ RHOHB! 100,2 ) ,RHOVB( 100,2) ,WMB( 100,2) ,HTB( 100,2), 

1 WWCRM! 100,2), LABEL! 1 ,100) 

COMMON /PLTCOM/ TSLPTM1 00 ) ,XDOWNI 400 ) , YACR05! 400 ) 

LEVEL 2, T5LPT ,XDOWN, YACROS 
DIMENSION KKK! 14) 

DIMENSION P( 11 ) 

INTEGER BLOAT , AANDK , ERSOR , STRFN , SLCRD ,SURVL , AATEMP , SURF , F IR5T , 

1 UPPER, SI, ST 

REAL K,KAK, LAMBDA, LMAX.MH.MLE, MR, MSL, MSP, MV, MVIM1 
DATA KKK! 4 )/1H#/»KKK( 6 )/1 HO/ ,KKK( 8 )/1H*/,KKK! 1 0 )/1HX/ 

C 

C CALL VELP, VELB, AND VELSUR THROUGHOUT THE REGION 
C 

IF ( INTVL.GT .0 ) CALL VELP! 1 ,MBIM1 ) 

CALL VELB! MBI ,MBO ) 

20 IF (INTVL.GT. 0) CALL VELP! MBOP1 ,MM ) 

CALL VELSUR 
C 

C PREPARE INPUT ARRAYS FOR PLOT OF VELOCITIES 
C 

IF ! SURVL. LE . 0 ) RETURN 
NP2 = 0 
C 

C TANGENTIAL COMPONENTS 
DO 50 SURF= 1 ,2 
NP1 = NP2 


STRLIN80 

STRLIN81 

STRLIN02 

STRLIN83 

STRLINQ4 

STRL1N85 

STRLIN06 

STRLIN87 

STRLIN88 

STRLIN89 

STRLIN90 

STRLIN91 

OUTPUT 2 

OUTPUT 3 

OUTPUT 4 

OUTPUT 5 

OUTPUT 6 

OUTPUT 7 

OUTPUT 8 

OUTPUT 9 

OUTPUTt 0 

OUTPUT 1 1 

0UTPUT1 2 

OUTPUT13 

OUT PUT 14 

OUTPUTt 5 

0UTPUT16 

OUTPUT 17 

OUTPUT! 8 

OUTPUT1 9 

0UTPUT20 

0UTPUT2 1 

OUTPUT22 

OUTPUT23 

OUTPUT24 

0UTPUT25 

0UTPUT26 

OUTPUT27 

0UTPUT28 

0UTPUT29 

OUTPUT30 

OUT PUT 31 

OUTPUT32 

OUTPUT33 

OUTPUT34 

0UTPUT35 

OUTPUT36 

0UTPUT37 

OUTPUT3B 

OUTPUT39 

0UTPUT40 

0UTPUT41 

0UTPUT42 

0UTPUT43 

OUTPUT44 

OUTPUT45 

OUTPUT46 

OUTPUT47 

0UTPUT48 

OUT PUT49 
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c 

c 


c 

c 

c 


IM5S = IMS! SURF) 

IF { II1S5.LT, t ) GO TO AO 
DO 30 IHS=1,IHSS 

IF ( ABS(DTDMH( IHS»5URF )«RMH(IHS,SURF ) ).LT. .57735) GO TO 30 
NP1 = NP1 * 1 

YACROS(NPt) □ WTB(IHS.SURF) 

XDOWN(NPI) = MH(IH5,SURF) 

30 CONTINUE 

AO KKK!2*SURF+1) = NP1-NP2 
50 NP2 = NP1 

MERIDIONAL COMPONENTS 
DO 80 5URF=1,2 
NP1 = NP2 

DO 60 IM=MBIP1,MB0M1 

IF (ABS(OTDMV!IM, SURF )«Rm IM) ) ,GT. 1 . 732 U GO TO 60 
NP1 = NP1M 

YACR051NP1 ) = WMB(IM,5URF) 

XOOWN(NPI) = MVIIM) 

60 CONTINUE 

70 KKK(2*SURF+5) = NP1-NP2 
80 NP2 = NP1 

PLOT VELOCITIES 

KK1 = KKK( 3) 

KK2 = KKK(5) 

KK3 = KKK( 7) 

KKA = KKK(9) 

IF (BLOAT. GE. 2) CAU VEPLOTIKKt »KK2,KK3,KKA) 

KKK( 1 ) = 1 
KKK( 2 I = A 
P1 1 ) =5. 

IF ( REDFAC. IT. 1.) WRITE! NWRIT, 1000 ) 

IF (REDFAC. EQ. 1 . ) WRITE! NWRIT , 1020 ) 

CALL PLOTHY(XOQWN*YACROS»KKK»P) 

WRITE (NWRIT, 101 01 
PTOTAL = RHOIP#AR#TIP 
DO 90 IS= 1 >2 
PRESIN = PTOTAL 
DO 90 IM = MBI »MBO 
XVOIM! IM )=MV< IM )/MV( MBO ) 

THLMI □ 2 . #0MEGA* LAMBDA - (OMEGA#RM(IM) )**2 

PRESt IMiIS ) = PTOTAL*! 1.-PL05IMdM))*(1 . -!WMB(IM,IS)**2*TWLMI )/ 

1 CPTIP)*#! GAM/! GAM-1 . ) ) 

PRATIO! IM»IS )=PRES( IM,I5 l/PRESIN 
CPT(IM,IS)=PRATIO(IM,IS)-1 . 

90 CONTINUE 

IFCREOFAC.LT. 1 . ) WRITE (NWRIT, 998) 

IF! REDFAC . EQ. 1 . ) WRITE (NWRIT, 999) 

WRITEl 6, 1 1 00 ) 

DO 9! IM □ MBI, MBO 

WRITE (6,1001 )IM,MV( IM) ,XVDIM( IM ) »PRATI0( IM, 1 ) »PRATIO( IM»2 ) »CPT( 
1IM.1 ),CPT(IM,2) 

91 CONTINUE 
MB2=MBI*1 
IND=MBI*MBO 

IF (IENO.LE.O) RETURN 
WRITE (9,1003) TITLEI 

W7ITE (9,1002 ) ( XVDIM( IMD-IM ) , IM=MBI ,MBO ) , ( XVDIM( IM ) , IM=MB2 , MBO ) 


OUTPUT50 
OUTPUTS 1 
OUTPUT52 
OUTPUT53 
OUTPUT5A 
OUTPUT 55 
OUTPUT56 
OUTPUT57 
OUTPUT58 
0UTPUT59 
OUTPUT60 
OUTPUT6 1 
OUTPUT62 
0UTPUT63 
0UTPUT6A 
0UTPUT65 
OUTPUT66 
0UTPUT67 
OUTPUT68 
OUTPUT69 
OUTPUT 70 
0UTPUT71 
OUT PUT 72 
OUTPUT73 
OUT PUT 7A 
0UTPUT75 
0UTPUT76 
OUTPUT77 
OUT PUT 78 
OUTPUT79 
OUTPUT80 
0UTPUT81 
OUTPUT82 
0UTPUT83 
0UTPUT8A 
0UTPUT85 
OUTPUT86 
OUTPUTS 7 
0UTPUT88 
OUT PUT 8 9 
OUTPUT90 
OUTPUT 91 
OUTPUT92 
0UTPUT93 
OUTPUT 9 A 
0UTPUT95 
OUTPUT96 
OUTPUT97 
0UTPUT98 
0UTPUT99 
OUTPUIOO 
OUT PUt 01 
OUTPUI 02 
OUTPU1 03 
0UTPU10A 
OUTPUI 05 
OUTPU1 06 
OUTPUI 07 
OUTPUI 06 
OUTPUI 09 


WRITE (9,1002) ( CPT(IN0-IM,2),IM=HBI,MB0), OUTPUIIO 

1 ( CPTdM.I ),IM=MB2,MBO) OUTPUttt 

998 FORMAT ( 1H1 »50X, A7HBLADE SURFACE PRESSURES FOR REOUCED WEIGHT FLOWOUTPUI l 2 

1 / ) OUTPU1 1 3 

999 FORMAT ( 1H1 ,50X»AAHBLADE SURFACE PRESSURES FOR FULL WEIGHT FLOW /JOUTPU1 1 A 

1100 FORMAT (1H ,7X,3HIM ,6X,7H M ,8X,7H h/MC ,8X,7HPt1)/PT, 0UTPU115 

18X,7HP(2)/PT,8X,7HCPT( 1 ) ,8X,7HCPT(2) ,/) OUTPUI 16 

1001 FORMAT! 5X» 15,6! 6X,GI 0 . A ) ) 0UTPU117 

1002 FORMAT (8F10.6) 0UTPU118 

1003 FORMAT (20AA) OUTPUI 19 

RETURN OUTPUI 20 

C OUTPUI 21 

C FORMAT STATEMENTS OUTPUI 22 

C OUTPUI 23 

1000 FORMAT! 1H1 *50XA8HBIA0E SURFACE VELOCITIES FOR REDUCED WEIGHT FLOW JOUTPUt 2A 

1010 FORMAT ( 39X .63HVELOCITY! W ) VS. MERIDIONAL STREAMLINE DISTANCE OUTPUI 25 
KM) DOWN THE PAGE // OUTPUI 26 

2 52X,50H* - BLADE SURFACE 1, BASED ON MERIDIONAL COMPONENT/ OUTPUI 27 

3 52X » 50H* - BLADE SURFACE 1, BASED ON TANGENTIAL COMPONENT/ OUTPUI £8 

A 52X.50HX - BLADE SURFACE 2, BASED ON MERIDIONAL COMPONENT/ OUTPUI 29 

5 52X.50H0 - BLADE SURFACE 2, BASED ON TANGENTIAL COMPONENT) OUTPUI 30 

1020 FORMAT! 1 HI ,50X, A5HBLA0E SURFACE VELOCITIES FOR FULL HEIGHT FLOW) 0UTPU131 

END OUTPUI 32 

SUBROUTINE VEL (FIRST, LAST) VEL 2 

C VEL 3 

C VEL CALCULATES DENSITIES AND VELOCITIES FROM THE PRODUCT OF VEL A 

C DENSITY TIMES VELOCITY VEL 5 

C VEL 6 

COMMON NREAD, NWRIT, ITER, IEND,LER( 2), HER! 2) VEL 7 

COMMON /INPUTT/ GAM, AR , TIP, RHOIP,WTFL, OMEGA, ORF,BETAI ,BETAO, VEL 8 

1 LAMBDA, RVTHO, REDFAC, DENTOL, FSMI, FSMO, SSMt ,SSM2, MBI, MBO, MM, VEL 9 

2 NBBI ,NBL,NRSP,MOPT,LOPT,LRVB,BLDAT,AANDK,ERSOR,STRFN,SLCRD, VEL 10 

3 INTV L ,SURVL , CHORD! 2 ) , STGR( 2 ) »RI( 2 ) »RO! 2 ) »BETI( 2 ) »BETO( 2 ) , VEL 11 

A NSPK 2 ) »TITLEI( 20 ) »MR( 50 ) »RM5P( 50 ) ,BESPF( 50 ) »HOHCRt 50 ) , VEL 12 

5 PLOSS! 50 ) ,MSP( 50,2) >THSP( 50,2) VEL 13 

COMMON /CALCON/ ACTWT , ACTOMG, ACTLAM,MBIM1 ,MBIP1 ,M80M1 ,MBOP1 ,MMM1 , VEL 1 A 

1 HM1 ,HT .DTLR ,DMLR , PITCH, CP, EXPON,TWW»CPTIP,TGROG,TBI »TBO*TWL» VEL 15 

2 WI,WMI.WCRI,ITMIN,ITMAX,NIP,IMS1 ,IMS2,IM5( 2 ) ,BV( 2 ) ,MLE( 2 ) , VEL 16 

3 THLE! 2 ) ,RMI( 2 ) »RMO( 2 ) ,BESP( 50 ) ,MV( 100 ) ,RM( 100), BE ( 100 ) * VEL 17 

A BEFn00),DBDM(100),DBFDM( 1 00 ) ,SAL( 1 00 ) , PLOSIM! 100 ) ,AAA( 100), VEL 18 

5 BBB! 100), IVM01 ),ITV! 100,2), TVdOO, 2), DTOMV! 100,2), VEL 19 

6 BETAV! 100, 2 ) ,MH( 1 00,2 ),OTDMH( 100,2 ) »BETAH( 100,2 ) ,RMH( 100,2) , VEL 20 

7 BEH! 100,2), PLOSMH! 100,2) VEL 21 

COMMON /AUKRHO/ A! 2500 , A ) ,U! 2500 ) ,K( 2500 ) ,RHO( 2500 ) VEL 22 

LEVEL 2, A,U»K,RHO VEL £3 

COMMON /VARCOM/ RHOHB1 100,2 ),RHOVBM 00,2), WMB( 100,2 >,WTB(1 00,2) , VEL 2A 

1 WWCRMl 100.2 ),LABEU1 ,100) VEL 25 

DIMENSION W( 2500), BETA! 2500 ),DU0T( 2500 ),DUDTT( 2500 ),AAP( 2500), VEL £6 

1 BBPC 2500 ) VEL 27 

LEVEL Z, H,BETA,DUDT,DUDTT,AAP,BBP VEL 28 

EQUIVALENCE ( A»W) ,( A! 1 , 2 ) ,BETA ) , ( A! 1 ,3),DUDT)»( A( 1 ,A ) ,OUDTT) , VEL 29 

1 ! K , AAP ) , ( RHO , BBP ) VEL 30 

DIMENSION WWCRT( 100,2 ) ,SURFL( 100,2) VEL 31 


VELP WRITES OUTPUT ALONG VERTICAL MESH LINES WHICH DO NOT 
INTERSECT BLADES 


INTEGER B LD AT , AANDK , ERSOR , STRFN , SLCRD , SURVL , AATEMP , SURF , F IRST 
1 UPPER, St, ST 

REAL K , KAK , LAMBDA , LMAX , MH , MLE , MR , MSI , MSP , MV , MVIM1 
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DATA REDFUL/7HREDUCE0/,FULL/6H FULL/ VEL 

ENTRY VELP VEL 

IF ( REDFAC . EQ . 1 ) REDFUL=FULL VEL 

IF (FIRST. GT. LAST) RETURN VEL 

IF (FIRST. EQ.1) WRITE ( NWRIT > 1000 ) REDFUL VEL 

DO 20 IH-FIRST * LAST VEL 

IPU = IVdH> VEL 

IPL = IPU+NBBI-1 VEL 

WRITE! NWRIT *1010) IM, ( WdP ) ,BETAl IP > »IP=IPU»IPL ) VEL 

20 CONTINUE VEL 

RETURN VEL 

C VEL 

C VELB CALCULATES ALONG VERTICAL MESH LINES WHICH INTERSECT BLADES VEL 

C VEL 

ENTRY VELB VEL 

IF (FIRST. GT. LAST) RETURN VEL 

IF ( FIRST. NE.MBI) GO TO 30 VEL 

RELER = 0. VEL 

RELERA = 0. VEL 

ZMREL =0. VEL 

IMREL = 0 VEL 

ITREL = 0 VEL 

ISREL = 0 VEL 

ICOUNT =0 VEL 

SURFU MBI , 1 ) = 0. VEL 

5URFLI MBI ,2 ) □ 0. VEL 

30 DO 75 IM=FIR5T , LAST VEL 

ITVU B ITV(IM.I) VEL 

ITVL □ ITV( IM, 2 ) VEL 

IPUP1 = IPF ( IM » ITVU ) VEL 

IPLMI = IPF11M.ITVL) VEL 

TWU1R = 2 . »OMEGA^LAMBDA*(OMEGA*RTU IM) )**2 VEL 

WCR = SORT( TGROG#TIP*( 1 . -TWLMR/CPTIP ) ) VEL 

IF ( ITVL. LT. ITVU) GO TO 50 VEL 

C ALONG THE LINE BETWEEN BLADES VEL 

IF (INTVL.LE.O) GO TO 50 VEL 

WRITE! NWRIT *1010) IM ,( WdP ) ,BETA(IP ), IP=IPUP1 » IPLMI > VEL 

C ON THE UPPER SURFACE VEL 

50 RHOB = RHOVBIIH.I ) VEL 

RHOIPL = RHOIP#(1.-PLOSIM(IM)) VEL 

LER( 1 ) = 7 VEL 

C DENSTY CALL NO. 7 VEL 

CALL DENSTY! WMBdM,1 ),RHOVB(IM,1 ) , ANS,TWLMR , CPTIP, EXPON, RHOIPL, VEL 
1 GAM , AR ,TIP, JZ ) VEL 

WMB(IM,1 ) = ANS VEL 

WUCRMdM.I) = WMBdM,1)/WCR VEL 

IF I IM.EQ.MBI ) GO TO 60 VEL 

DELTV B TVdM-1,1)-TV(IM,1) VEL 

SURFLCIMpI) = SURFLdM-1 pi )+SQRT( (MV(IM)-MV(IM-I ) )*»2+ VEL 

I (DELTV*(RMIIM)+RMdM-1))/2. )««2) VEL 

60 ERR = ABS((RHOB-RHOVB(IM,! ))/RHOVB(IM>t ) ) VEL 

RELER = AMAX1 (RELER . ERR ) VEL 

RELERA = RELERA+ERR VEL 

IF (RELER. NE. ERR) GO TO 65 VEL 

IMREL = IM VEL 

ISREL = 1 VEL 

ZMREL = MV(IM) VEL 

65 IF (ERR.GE.DENTOL) ICOUNT=ICOUNT+1 VEL 

C ON THE LOWER SURFACE VEL 

RHOB = RH0VB(IM,2) VEL 
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RHOIPL = RH0IP#(1.-PL0SIM(IM)) 

VEL 

99 

90 


LER( 1) = 6 

VEL 

100 

91 

C 

DENSTY CALL NO. 8 

VEL 

101 

92 


CALL DENSTY! WMBl IM,Z >,RHOVB< IM , 2 )» ANS ,TWLMR ,CPTIP , EXPON, RHOIPL, 

VEL 

102 

93 


1 GAM.AR.TlPpJZ) 

VEL 

103 

99 


WMB(IM,2) = ANS 

VEL 

104 

95 


WWCRMdM,2) = UHBdM,2)/WCR 

VEL 

105 

96 


IF (IM.EQ.MBI) GO TO 70 

VEL 

106 

97 


DELTV = TV( IM-1 »2 )-TV( IM»2 ) 

VEL 

107 

98 


SURFL( IM» 2 ) = SURFL! IM-1 ,2 )+SQRT( ( MV( IM )-MV( IM- 1 ) )*#2* 

VEL 

108 

99 


1 ( DELTVM RM( IM )+RM( IM-1 ) )/Z. )**2 ) 

VEL 

109 

50 


70 ERR = AB5((RHOB-RMOVBdM,2))/RHOVB(IM,2)) 

VEL 

110 

51 


RELER = AMAXKRELERpERR) 

VEL 

111 

52 


RELERA = RELERA+ERR 

VEL 

112 

53 


IF (RELER. NE. ERR) GO TO 75 

VEL 

113 

54 


IMREL = IM 

VEL 

114 

55 


ISREL = 2 

VEL- 

115 

56 


ZMREL = MV( IM) 

VEL 

116 

57 


75 IF (ERR.GE.DENTOL) ICOUNT=ICOUNT+1 

VEL 

117 

58 


RETURN 

VEL 

118 

59 

C 


VEL 

119 

60 

C 

VELSUR CALCULATES WHERE HORIZONTAL MESH LINES INTERSECT THE BLADES 

VEL 

120 

61 

c 


VEL 

121 

62 


ENTRY VELSUR 

VEL 

122 

63 


1TERMX = 10 

VEL 

123 

64 


DO 90 SURF=1 ,2 

VEL 

124 

65 


IMSS = IMS(SURF) 

VEL 

125 

66 


IF (IMSS.EQ.O) GO TO 90 

VEL 

126 

67 


DO 80 IHS=1 ,IMSS 

VEL 

127 

68 


TWLMR = 2.*OMEGA#LAMBDA-(OMEGA«RMH<IHS,SURF))*«2 

VEL 

128 

69 


WCR = SQRT(TGROG*TIP*d . -TWLMR/CPTIP)) 

VEL 

129 

70 


RHOB = RHOHBdHS.SURF) 

VEL 

130 

71 


RHOIPL = RHOIP#( 1 . -PLOSMHf IHS pSURF ) ) 

VEL 

131 

72 


LER( 1 ) = 9 

VEL 

132 

73 

c 

DENSTY CALL NO. 9 

VEL 

133 

74 


CALL DENSTY! WTBdHS, SURF ), RHOHBdHS, SURF), ANS, TWLMR, CPTIP, 

VEL 

134 

75 


1 EXPON, RHOIPL, GAM, AR, TIP, JZ) 

VEL 

135 

76 


WTB( IHS, SURF ) = ANS 

VEL 

136 

77 


WWCRTl IHS, SURF ) = HTB( IHS, SURF )/WCR 

VEL 

137 

78 


ERR B AB5( ( RHOB-RHOHBI IHS, SURF ) )/RHOHB( IHS, SURF ) ) 

VEL 

138 

79 


RELER = AMAX1 ( RELER , ERR ) 

VEL 

139 

80 


RELERA = RELERA+ERR 

VEL 

140 

81 


IF (RELER. NE. ERR) GO TO 80 

VEL 

141 

82 


IMREL = 0 

VEL 

142 

83 


IF (SURF.EQ.1) CALL BL1 ( MH( IHS, SURF ) ,THET»DTDM,INF ) 

VEL 

143 

64 


IF ( SURF .EQ .2 1 CALL BL2( MH(IHS, SURF ) ,THET »OTDM, INF 1 

VEL 

144 

85 


ITREL = THET/HT+SIGN( . 1 ,THET ) 

VEL 

145 

86 


ISREL = SURF 

VEL 

146 

87 


ZMREL = MH( IHS ,5URF ) 

VEL 

147 

88 


60 IF (ERR.GE.DENTOL) ICOUNT=ICOUNT+1 

VEL 

148 

89 


90 CONTINUE 

VEL 

149 

90 


IF (RELER. LT.DENTOL. OR. ITER. GE.ITERMX) IEND=IENO+1 

VEL 

150 

91 


RELERA = RELERA/FLOAT(2«(t1BQ-MBI + 1 ) + IMS(1 l + IMSC 2 ) 1 

VEL 

151 

92 


WRITE! NWRIT, 1080) ITER .RELER , IMREL, ITREL, ISREL, ZMREL, RELERA, ICOUNTVEL 

152 

93 

c 


VEL 

153 

94 

c 

WRITE ALL BLADE SURFACE VELOCITIES 

VEL 

154 

95 

C 


VEL 

155 

96 


IF (SURVL.LE.O) RETURN 

VEL 

156 

97 


WRITE (NWRIT, 1020) REDFUL 

VEL 

157 

98 


WRITE ( NWRIT , 1040 ) ( MVdM ) , WMBdM , 1 ) ,BETAV( IM, 1 ),SURFL(IM,1 ), 

VEL 

158 
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t WWCRM! IM, 1 ) , WMB! IM,2 ) ,BETAV( IM,2 ) ,SURFL( IM, 2 ), WWCRM! IM, 2 ) , 

2 IM=MBI ,MBO ) 

WRITE INURIT.1050) REDFUL 
DO tOO SURF=1 ,2 
IMSS = IMS! SURF) 

IF ( IM55.LT. 1 J GO TO 100 
WRITE! NWRIT >1060) SURF 

WRITE! NWRIT » 1 070 ) ! MH( IHS.SURF ) ,WTB( IHS.SURF ) >BETAH! IHS.SURF ) » 
1 WWCRT(IHS.SURF), IHS=1 »IM55) 

100 CONTINUE 
RETURN 

FORMAT STATEMENTS 


VEL 165 
VEL 167 
VEL 16ft 
VEL 169 
VEL 170 
VEL 171 
VEL 172 
VEL 173 


VEL 181 
VEL 182 


1000 FORMATt 1H1/90X, 39HVELOCITIES AT INTERIOR MESH P0INTS/95X, VEL 173 

1 9HF0R »A6, 1 1HWEIGHT FLOW) VEL 1 7^ 

1010 FORMAT! 1 HL» 3HIM= , 13 ,5! 29H VELOCITY ANGLE! DEG 1 )/ VEL 175 

!!5X,5tG15.9»F9.2))l VEL 176 

1020 FORMAT! 1H1/16X, 1H*,10X»52H5URFACE VELOCITIES BASED ON MERIDIONAL CVEL 177 
10MP0NENT3 - ,A8, 1 1HWEIGHT FLOW, 18X, 1H*/16X, 1H*,53X, 1 H*,53X, 1H»/ VEL 178 

2 1 6X» 1H», 1 9X, 15HBLADE SURFACE 1 » 1 9X, 1 H* , 20X, 15HBLADE SURFACE 2. VEL 179 

3 16X> 1H*/7X» 1HM.8X, 1H*»,2( 3X»8HVEL0CITY » 3X.23HANGLE! DEG ) SURF. LEVEL 180 

9NGTH > 5X > 5HW/WCR » 6X » 1 H* )) VEL 181 

1090 FORMAT! t 1H ,G13.4,3H »,2(G1Z.9,F9.2,2G15.9,3H *>)) VEL 182 

1050 FORMAT! 1H1/3X.99H3URFACE VELOCITIES BASED ON TANGENTIAL COMPONENTSVEL 183 
1 /10X.A0, 1 1HHEIGHT FLOW) VEL 189 

1060 FORMAT! /V22X.15HBLADE SURFACE ,I1/7X,1HH,10X,8HVELOCITY,3X,10HANGVEL 185 

1 LEI DEG) 1 3X.5HW/HCR ) VEL 186 

1070 FORMAT! 1 H ,2G13.9,F9.2,G15.9) VEL 187 

1080 FORMAT ( ///5X , 1 9HITERATION NO. .I9/5X.60HMAXIMUM RELATIVE CHANGE IVEL 186 

IN DENSITY AT BLADE SURFACE POINTS = ,GU.9,10H AT IM =,I3, VEL 189 

28H, IT =,I3,10H, SURF =,I2,7H, M = ,G11 .9/5X.60HAVERAGE RELATVEL 190 
3IVE CHANGE IN DENSITY AT BLADE SURFACE POINTS =>G1 1 .9/5X.99HNUMBERVEL 191 
9 OF UNCONVERGED BLADE SURFACE MESH POINTS = ,I9) VEL 192 

END VEL 193 

SUBROUTINE TVELCY TVELCY 2 


VEL 192 
VEL 193 


TVELCY SOLVES THE FULL MASS FLOW PROBLEM BY OBTAINING A 
VELOCITY GRADIENT SOLUTION ALONG EACH VERTICAL MESH LINE 


COMMON NREAD, NWRIT, ITER »IENO»LER( 2 ) ,NER( 2 ) TVELCY 7 

COMMON /INPUTT/ GAM, AR , TIP, RHOIP.WTFL, OMEGA. ORF .BETAI .BETAO, TVELCY 6 

1 LAMBDA, RVTHO, REDFAC, DENTOL, FSMI, FSMO, SSM1 .SSM2.MBI, MOO, MM, TVELCY 9 

2 NBBI ,NBL,NRSP»MOPT , LOPT , LRVB, BLOAT »AANDK»ERSOR ,5TRFN,SLCRD» TVELCY1 0 

3 INTVL.SURVL, CHORD! 2 ) ,STGR( 2 ) ,RI( 2 ) ,RO! 2 ) ,BETI( 2 ) ,BETO( 2 ) , TVELCY1 1 

9 NSPI(2),TITLEI(20),MR!50),RM5P(50),BESPF!50J,WOWCR(50), TVELCY12 

5 PL053I 50 ) »M5P( 50,2 ) »THSP! 50,2 ) TVELCY 1 3 

COMMON /CALCON/ ACTWT, ACTOMG.ACTLAM.MBIMI ,MBIP1 ,HBOM1 .MDOP1 ,MMM1 , TVELCY1 9 

1 HMI.HT.OTLR.OMLR, PITCH, CP, EXPON,TWW,CPTIP,TGROG,TBl,TBO,THL, TVELCY15 

2 HI.WMI.WCRI |ITMIN,1TMAX*NIP,IMS1 , IM52 , IMS! 2 ) ,BV( 2 ) ,MLE( 2 ), TVELCY16 

3 THIEl 2 ) ,RMI! 2 ) ,RMO( 2 ) ,BESP! 50 ) ,MV( 1 00 ) ,RM( 1 00 ) , BE! 100 ) , TVE LCY1 7 

9 BEF! 1 00 1 ,DBDM! 100 ) ,DBFDM( 1 00 ) ,SAL( 1 00 ) , PLOSIMt 1 00 ) ,AAAl 1 00 ) , TVELCY18 

5 BBB( 1 00 ), IV! 101 ) »1TV! 100,2) ,TV( 100,2 ) .DTDMVl 100,2), TVELCY19 

6 BETAV1 10D,2),MH!100,2) ,DTDMH( 1 00 , 2 ) .BETAHM 00 , 2 ) ,RMHl 1 00 ,2 ) , TVELCY20 

7 BEH! 100,2), PLOSMH! 100,2) TVELCY21 

COMMON /AUKRHO/ A! 2500 ,9) ,U( 2500 ) ,K( 2500 ) .RHO! 2500 ) TVELCY22 

LEVEL 2, A,U,K,RHO TVE LCY23 

COMMON /VARCOM/ RHOHB! 1 00,2 ) .RHOVB! 1 00 ,2 ) ,HMBl 1 00.2 ) ,HTB( 1 00 ,2 ) , TVELCY29 

1 WWCRM! 100, 2), LABEL! 1 ,100) TVELCY25 

COMMON /PLTCOM/ TSLPT! 1 1 00 ) .XOOWNl 900 ) .YACROS! 900 ) TVELCY26 


LEVEL 2, T5LPT.XD0WN, YACROS 

DIMENSION W( 2500 ) .BETA! 2500 ) ,DUDT( 2500 ) ,DUDTT( 2500 ) ,AAP! 2500 ) , 

1 BDP! 2500 ) 

LEVEL 2, H,BETA,DUDT ,DUDTT ,AAP,BBP 

EQUIVALENCE !A,M),1A(1 , 2 ) .BETA ) , ( A! 1 ,3) ,DUOT) ,!A( 1 ,9 ) ,DUOTT ) , 

1 I K, AAP ) , l RHO ,BBP ) 

DIMENSION KKK! 19) 

DIMENSION P( 11 ) 

INTEGER B LD AT , AANDK , ERSOR , 5TRFN , SLCRD , SURVL » AATEMP , SURF , SURFBV , 
1 FIRST ,UPFER , UPPRBV , SI ,ST 

REAL K iKAK , LAMBDA , LMAX.MH ,MLE ,MR,MSL,MSP»MV»MVIM1 
C 

C CALL VELGRP AND VELGRB THROUGHOUT THE SOLUTION REGION 
C 

LAMBDA □ ACTLAM 

IF ( INTVL.GT. 0 ) WRITE! NWRIT, 1 000 ) 

IF ( 1 .GT.MBIM1 ) GO TO 20 
DO 10 IM=1 ,MBIM1 
10 CALL VELGRP! IM) 

20 DO 30 IM=MBIP1 .MBOMI 
30 CALL VELGRB! IM) 

IF ( MBOP1 . GT.MM ) GO TO 50 
DO 90 IH=MBOP1 ,MM 
90 CALL VELGRP! IM) 

C 

C FIX VELOCITIES ON LEADING AND TRAILING EDGE LINES 
C 

50 FIRST = IV(MBI) 

LAST = IV! MBIP1 )-1 
DO 59 I=FIR5T , LAST 

59 Wt I) s W! I l/REDFAC 
FIRST = IV(MBO) 

LAST = IV! MBOP1 )-1 
DO 56 I=FIRST , LAST 

56 W(I) = W( I )/REDFAC 
C 

C WRITE SURFACE VELOCITIES 
C 

IF ( SURVL. LE.O) RETURN 
WRITE! NWRIT ,1010) 

WRITE ! NWRIT, 1020)! MV! IM ) , WMB! IM, 1 ) , WWCRM! IM , 1 ) , LABEL! 1 , IM ) , 

I WMB! IM , 2 ) , WWCRM! IM , 2 ) , LABEL! 1 ,IM ) , IM=MBIP1 , MBOMI ) 

C 

C PREPARE ARRAYS FOR PLOT OF SURFACE VELOCITIES 
C 

DO 60 IM=MBIPt , MBOMI 
I □ IM-MBI 
12 = I ♦MBOMI -MBI 
XDOWNtI) B MV! IM) 

YACROS! I) B WMB! IM, 1 ) 

60 YACROS! 12) = WMB!IM,2) 

KKK! 1 ) = 0 

KKK! 2) = 2 

KKK! 3) = MBOMI -MBI 

PI 1 ) = 1 . 

C 

C PLOT SURFACE VELOCITIES 
C 

IF (BLDAT.GE.2 ) CALL TVPLOT 
WRITE! NWRIT ,1030) 


TVELCY27 
TVELCY20 
TVELCY29 
TVELCY30 
TVELCY31 
TVELCY32 
TVELCY33 
TVELCY39 
TVELCY35 
TVELCY36 
TVELCY37 
TVELCY38 
TVELCY39 
TVELCY90 
TVELCY91 
TVELCY92 
TVELCY93 
TVELCY99 
TVELCY95 
TVELCY96 
TVELCY97 
TVELCY96 
TVELCY99 
TVELCY50 
TVELCY51 
TVELCY52 
TVELCY53 
TVELCY59 
TVELCY55 
TVELCY56 
TVELCY57 
TVELCY56 
TVELCY59 
TVELCY60 
TVELCY6 1 
TVELCY62 
TVELCY63 
TVELCY69 
TVELCY65 
TVELCY66 
TVELCY67 
TVELCY66 
TVELCY69 
TVELCY 70 
TVELCY71 
TVELCY72 
TVELCY73 
TVELCY79 
TVELCY75 
TVELCY76 
TVELCY77 
TVELCY76 
TVELCY79 
7VELCY60 
TVELCY01 
TVELCY82 
TVELCY63 
TVELCY09 
TVELCY05 
TVELCY86 
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CALL PLOTMY ( XDOWN > YACR05 »KKK , P ) 
WRITE! NWRIT , 1 040 > 

RETURN 

FORMAT STATEMENTS 


TVELCY07 
TVELCYB8 
7VELCY09 
TVELCY90 
TVELCY91 
TVELCY92 

1000 FORMAT! 1H1 /40X , 34HVEL0CITIE5 AT INTERIOR MESH POINTS/44X, TVELCY93 

1 27HI BASED ON FULL WEIGHT FLOW)) TVELCY94 

1010 FORMAT1 1H1/16X , 1H# , 1 3X ,6QH5URFACE VELOCITIES BASED ON MERIDIONAL CTVELCY95 
10MP0NENTS - FULL WEIGHT FLOW, 30X , 1H*/ 1 bX, 1H*>55X, 1H*,55X, 1H»/1bX, TVELCY96 
21H#, 20X , 1 5HBLADE SURFACE 1 , 2QX , 1H* » 20X » 1 5HBLADE SURFACE 2 , 20X , 1 HVTVE LCY97 
37X, 1 HM»0X » IH*» 2! 3X , 0HVE LOCITY ,6X ,5HW/WCR , 33X, 1 H* )) TVE LCY90 

1020 FORMAT ( ( 1X,G13.4»3H • , 2 ( 2G1 3 . 4 , AS , 2 1 X , 1 H* ) ) ) TVELCY99 

1030 FORMAT! 1H1 ,51 X , 24HBLADE SURFACE VELOCITIES/51 X,27H( BASED ON FULL WTVELC100 
1 EIGHT FLOW)) TVELC1 01 

1 040 FORMAT! 39X ,63HVEL0CITYl W ) VS. MERIDIONAL STREAMLINE DISTANCE(M) DOTVELC1 02 
1MN THE PAGE//52X, 1 9H# - BLADE SURFACE 1/52X,19H* - BLADE SURFACE 2TVELC 1 03 


2) 

END 

SUBROUTINE VELGRA 1IM) 

COMMON NREAD .NWRIT, ITER , IEND , LER! 2 ) ,NER( 2 ) 

COMMON /INPUTT/ GAM ,AR , TIP ,RHOIP,HTFL , OMEGA ,ORF ,BETAI ,BETAO , 

1 LAMBDA, RVTH0,REDFAC,DENT0L,FSMI,FSM0,5SM1 ,SSM2 ,MBI , MOO, MM, 

2 NBBI ,NBL,NRSP ,MOPT , LOPT , LRVB .BLDAT , AANDK , ERSOR , STRFN , 5LCRD , 

3 INTV L »SURVL, CHORD l 2 ) »STGRl 2 ) ,RI( 2 ) ,RO( 2 ) »BETI! 2 ) »BETO( 2 ) , 

4 NSPI! 2 ) iTITLEI! 20 ) ,MR( 50 ) ,RMSP( 50 ) ,BESPF( 50 ) ,NOWCR! 50 ) , 

5 PLOSS! 50 ) »MSP( 50 , 2 ) »TH5P! 50 » 2 ) 

COMMON /CALCON/ ACTWT , ACTOMG .ACTLAM ,MBIM1 »MBIP1 ,MBOM1 »MBOP1 ,MMM1 

1 HM1,HT,DTLR,DMLR, PITCH, CP, EXPON,TWH,CPTIP»TGROG,TBI,TBO,TWL, 

2 HI »WMI ,WCRI , ITMIN»ITMAX,NIP,IMS1 ,IUS2,IMS( 2 ) ,BV( 2 ) ,MLE( 2 ), 

3 THLE! 2 ) ,RMI( 2 ) ,RMO( 2 ) ,BESP( 50 ) ,MV< 1 00 ) ,RM( 100) ,BE( 100), 

4 BEFl 1 00 ) »OBDM( 100 ) ,DBFDM( 100 ) ,SAL( 1 00 ) ,PLOSIM< 100 ) ,AAA( 1001, 

5 BBB! 1 00 ) »IV( 1 0 1 ) ,ITV( 1 00 , 2 ) ,TV! 1 00 , 2 ) ,DTDMV( 1 00 ,2 ) , 

6 BETAV! 100, 2 ),MH( 100,2 ),DTDMH( 100,2 ),BETAH! 100,2 ),RMHl 100,2), 

7 BEH! 100,2), PLDSMH! 100,2) 

COMMON /AUKRHO/ A! 2500 ,4) ,U( 2500 ) ,K( 2500 ) ,RHO( 2500 ) 

LEVEL 2, A,U,K,RHO 

COMMON /VARCOM/ RHOHB! 1 00,2 ) ,RHOVB( 1 00 , 2 ) , WMBl 1 00 , 2 ) , WTB! 1 00 , 2 ) , 
1 WWCRM! 100,21, LABEL! f , 1 00 1 
COMMON /BCDCOM/ INIT! 2 ) ,EMl 50 , 2 ) . D2TDM2! 100,2) 

DIMENSION W( 2500 ) ,BETAt 2500 ) ,DUDT! 2500 ) ,DUDTT( 2500 ) ,AAP! 2500 ) , 

1 BBPl 2500 ) 

EQUIVALENCE (A,W),(A(1,2) , BETA),! A! 1 , 3 ) ,0UDT ) , ( A! 1 ,4),DUDTT), 

1 (K, AAP ) , ( RHO ,BBP ) 

DIMENSION WGRAD! 51 ) , THETA! 51) ,RWCB( 51 ) ,CBETA( 51 ) , A2( 51 ) ,B2( 51 ) 
INTEGER BLDAT, AANDK , ERSOR , STRFN, SLCRD , SURVL , AATEMP, SURF , 5URFBV, 

1 FIRST, UPPER .UPPRBV, SI , ST , CHOKED .BLANK 
REAL K,KAK , LAMBDA , LMAX , MH , MLE , MR , MSL , MSP , MV , MVIM1 
DATA CH0KE0/6HCH0KED/, BLANK/1 H / 

VELGRP SOLVES IN THE PERIODIC REGION 

ENTRY VELGRP 
AORB = 1. 

IP = IV! IM ) 

WGRAD! 1 ) □ W(IP)/REDFAC 
IT1 = I TV! IM , 1 ) 

IT = IT 1 
N5P = NBBI* 1 
GO TO 10 


TVE LC I 04 

TVE LC 105 

VELGRA 2 

VELGRA 

VELGRA 

VELGRA 

VELGRA 

VELGRA 

VELGRA 

VELGRA 

VELGRA1 0 

VELGRA1 1 

VELGRA1 2 

VELGRA 13 

VELGRAI4 

VELGRA 15 

VELGRAlb 

VELGRA1 7 

VELGRA1 6 

VELGRA1 9 

VELGRA20 

VELGRA2I 

VELGRA22 

VELGRA23 

VELGRA24 

VELGRA25 

VELGRA26 

VELGRA27 

VELDRA2B 

VELGRA29 

VELGRA30 

VELGRA3I 

VELGRA32 

VELGRA33 

VELGRA34 

VELGRA35 

VELGRA36 

VELGRA37 

VELGRA30 

VELGRA39 

VELGRA40 

VELGRA41 

VELGRA42 


C 

C VELGRB SOLVES IN THE BLADE REGION 
C 

ENTRY VELGRB 
IP = IV(IM)-1 

WGRAD ( 1 ) = WMB! IM » 1 )/REOFAC 
NSP □ IV! IM* 1 )-IV( IM )+2 
AORB = 2. 

IT1 = ITV! IM , 1 ) 

IT = HIM 
10 NSPM1 □ NSP- 1 

LABEL! 1 »IM ) □ BLANK 

TORSAL = 2.# ACTOMG *RMt IM )»SALl IM) 

JZ = 1 

IF (IM.GE.IMS1 . AND , IM . LE . IM32 ) JZ=2 
TWLMR = 2 . # ACTOMG# LAMBDA- ( ACTOMG#RM( IM ) )*#2 
WCR = SQRTl TGROG*TIP*( 1 . -TWLMR/CPTIP ) ) 

DELMAX = WCR/ 10. 

TOLERC = WCR/ 100. 

DO 20 1=1 , NSPM1 

CBETA(I) = C0S(BETA(IP)/57. 295779) 

THETA! I ) = HT#F LOAT! IT ) 

A2 ( I ) = AAP! IP ) 

B2!I) = BBP(IP) 

IT □ IT* 1 
20 IP □ IP+1 

CBETA(NSP) = CBETA! 1 ) 

A2( NSP ) = A2( 1 ) 

B2( NSP ) = B2( 1 ) 

THETA! NSP) = HT*FLOAT! IT ) 

IF (AORB.LE.1. ) GO TO 30 

CBETA(I) = 1./SQRT(f .*(RM(IM)«OTOMV(Itt,in«#2) 

SBETA1 = SORT! 1 . -CBETA! 1 )»«2 )*SIGN( 1 . ,DTDMV( IM, 1 ) ) 

A2M) = (RM( IM)«CBETA! 1 ) )»#2*D2TDM2( IM, 1 )*SAL( IM)#SBETA1/ 

1 CBETA! 1 )*< 1 .+CBETA! 1 )**2 ) 

B2(1) = B2(2) + TORSAL*l 1 ./CBETAlD-1 ./CBETAI2)) 

THETA! 1 ) = TV! IM, 1 ) 

CBETA! N5P ) □ 1 ./SQRT! 1 . *! RM( IM MDTOMV! IM , 2 ) )««2 ) 

SBETAN = SORT! I . -CBETA! N5P)#*2 )*5IGN! 1 . »DTDMV! IM, 2 ) ) 

A2INSP) = ( RM( IM )# CBETA! NSP ) )w#2#D2TDM2( IM , 2 ) ♦ S A L ( IM )*SBETAN/ 
1 CBETA! NSP )#( 1 . ♦ CBETA! NSP )*»*2 ) 

B21NSP) = B21NSPM1 )+ TORSAL*! 1 ./CBETA! MSP ) — 1 ./CBETA! NSPM1 ) ) 
THETA! NSP ) = TV(IM,2) 

30 IND = 1 
40 CONTINUE 

DO 50 1=2, NSP 

WAS = WGRAD! 1-1 )*!A2(I-1 )* WGRAD! 1-1 )*B2( I-t ) )#( THETA! I )•* 

1 THETA! 1-1 )) 

WASS = WGRADII-1 )♦( A2( I )#WAS*B2( I ))*( THETA! I )-THETA( I- 1) ) 

50 WGRAD! I) = t WAS+WASS )/2 . 

DO 60 1=1 ,NSP 

TTIP = 1.-1 WGRAD! I ) **2* TWLMR J/CPTIP 

IF I TTIP.GE . .0 ) GO TO 55 

WRITE ! NWRIT , 1 01 0 ) IM 

IF ( AORB.GT. 1 . ) WGRAD! 1 ) □ 0. 

IF (A0R3.GT.1.) WGRAD! NSP ) = 0. 

GO TO 70 

55 RHOT = RHOIP#! 1 .-PLOSIM(IM) )#TTIP#*EXPON 
60 RWCB(I) = RHOT* WGRAD! I )#CBETA( I ) 

CALL INTGRL (THETA, RWCB, NSP, AAA) 


VELGRA43 
VELGRA44 
VELGRA45 
VELGRA46 
VELGRA47 
VELGRA40 
VELGRA49 
VELGRA50 
VELGRA51 
VELGRA52 
VELGRA53 
VELGRA54 
VELGRA55 
VELGRA56 
VELGRA57 
VELGRA58 
VELGRA59 
VELGRA60 
VELGRA61 
VELGRA62 
VELGRA63 
VELGRA64 
VELGRA65 
VELGRA66 
VELGRA6 7 
VELGRA68 
VELGRA69 
VELGRA70 
VELGRA71 
VELGRA72 
VELGRA73 
VELGRA 74 
VELGRA75 
VELGRA76 
VELGRA77 
VELGRA78 
VELGRA79 
VELGRA80 
VELGRA81 
VELGRA82 
VELGRA03 
VELGRA04 
VELGRA85 
VELGRA86 
VELGRA07 
VELGRABB 
VELGRAB9 
VELGRA90 
VELGRA91 
VELGRA92 
VELGRA93 
VELGRA94 
VELGRA95 
VELGRA96 
VELGRA97 
VELGRA90 
VELGRA99 
VELGR100 
VELGR1 01 
VELGR1 02 
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C 

c 

c 


c 

c 

c 


c 


HTFLE5 = BEF! IH )"RM( IN )* AAA! NSP ) 

VELGR103 

C 

BL1 SOLVES FOR BLADE SURFACE 1 

BLCD 

29 

IF (IMD.GE.6.AN0.ABS! ACTHT-WTF LES ) . LE . ACTWT/1 . E5 ) GO TO 70 

VELGR 109 

C 


BLCD 

25 

CALL CONTIN 1 WSRAD11 ) ,WTF LES , IND , JZ , ACTWT .DELMAX ) 

VCLGR1 05 


INTEGER BLDAT , AANDK , ERSOR , 5TRFN ,SLCRD ,SURVL , AATEMP, SURF .FIRST , 

BLCD 

26 

IF IIND.LT. 10) GO TO 90 

VELGR106 


1 UPPER, SI, ST 

BLCO 

27 

AA = WTFLE5/ACTWT 

VELGR 107 


REAL K.KAK, LAMBDA, LMAX,MH,MLE , MR, MSL, MSP, MV, MVIM1 

BLCD 

28 

IF (IND.Eq.10) WRITE! NWRIT ,1030 ) IM.AA.IM 

VELGR106 


REAL M.MMLE ,M5FMM,MMM5P 

BLCD 

29 

IF (IND.EQ.IO) GO TO 65 

VELGR109 


ENTRY BLI 

BLCO 

30 

WRITE! NWRIT » 1 020 ) IN 

VELGR1 10 


SURF = 1 

BLCD 

31 

IF ( AORB.GT. 1 . ) WGRADI 1) = 0. 

VrLGRIII 


SIGN = 1 . 

BLCO 

32 

IF ! AORB.GT. 1 . ) WGRADIN5P) = 0. 

VELGR112 


GO TO 10 

BLCD 

33 

GO TO 70 

VELGR113 

C 


BLCD 

39 

65 LABEL! 1 ,IM) = CHOKED 

VELGR 1 1 9 

c 

BL2 SOLVES FOR BLADE SURFACE 2 

BLCD 

35 

70 CONTINUE 

VELGR1 1 5 

c 


BLCD 

36 

FIRST = 1 

VELGR1 16 


ENTRY BL2 

BLCD 

37 

IF 1 AORB.GT. 1 . ) FIRST 2 

VELGR 11 7 


5URF= 2 

BLCO 

38 

LAST = N5PM1 

VELGR 1 16 


SIGN = -1 . 

BLCD 

39 

IF ( INTVL.GT . 0 ) WRITE! NWRIT, 1 000 ) IN, IT1 , (WGRADI I ) ,I=FIRST, LAST ) 

VELGR1 1 9 


10 INF = 0 

BLCD 

90 

IP = IV(IN)-1 

VELGR 1 20 


IM = 1 

BLCD 

91 

00 60 I=FIR5T , LAST 

VELGR 1 2 1 


DO 15 I=MBI,MBO 

BLCD 

92 

IP B IP+t 

VELGR122 


15 IF ( ABS! MV( I )-M ) . LE . DMLR ) IM=I 

BLCD 

93 

60 W(IP) = WGRADI I ) 

VELGR1 23 


NSP = NSPI! SURF) 

BLCD 

99 

IF (AORB.LE.t.) RETURN 

VELGR 124 


IF ( INITI SURF ) . EQ. 1 ) GO TO 30 

BLCD 

95 

WMB! IM, 1 ) Q WGRAO! 1 ) 

VELGR125 


INIT! SURF ) = 1 

BLCD 

96 

WMB! IN, 2 ) = WGRADI NSP) 

VELGR1 26 

c 


BLCD 

97 

WHCRNdrt.n = WMB! IN, 1 )/WCR 

VELGR1 27 

c 

INITIAL CALCULATION OF FIRST AND LAST SPLINE POINTS ON BLADE 

BLCO 

96 

WWCRM! IN, 2 ) = WMB! IN , 2 )/WCR 

VELGR1 26 

c 


BLCD 

99 

RETURN 

VELGR129 


AA ft BETI(SURF)/57. 295779 

8 LCD 

50 


VELGR1 30 


AA = SIN! AA ) 

BLCD 

51 

FORMAT STATEMENTS 

VELGR1 31 


MSP! 1, SURF) = RI! SURF )»! 1 . -SIGN#AA ) 

BLCD 

52 


VELGR132 


BB = SQRT! 1 . -AA»#2 ) 

BLCD 

53 

1000 FORMAT! 5HKIM =,I3,10X,5HIT1 = ,13/! 2X, 1 0G1 3.9 ) ) 

VELGR 1 33 


THSPM.SURF) = SIGN*BB*RIt SURF )/RMI( SURF ) 

BLCD 

59 

1010 FORMAT I73HK A VELOCITY GRADIENT SOLUTION CANNOT BE OBTAINED FOR 

VELGR 139 


DTDMI! SURF) = AA/B8/RMK SURF ) 

BLCD 

55 

(VERTICAL LINE IM = ,I3) 

VELGR 135 


AA = BETO! SURF )/57. 295779 

BLCD 

56 

1020 FORMAT! 92HK A VELOCITY GRADIENT SOLUTION COULD NOT BE OBTAINED IN 

VELGR 136 


AA = SIN! AA ) 

BLCO 

57 

150 ITERATIONS FOP VERTICAL LINE IM = ,I3) 

VELGR 137 


MSP! NSP, SURF ) = CHORD 1 SURF J-R0I5URF )*! 1 . + SIGN#AA) 

BLCD 

58 

1030 FORMAT! 93HLACTWT EXCEEDS CHOKING HEIGHT FLOW FOR IM = » I3/22HKCHOKIVELGR1 36 


BB = SQRT! 1 .-AA**2) 

BLCD 

59 

1NG WEIGHT FLOW =,F6.3,3X,32H OF ACTUAL HEIGHT FLOW FOR IM = ,13) 

VELGR 139 


THSP! NSP, SURF ) ft STGR! SURF )+SIGN*BB#RO( SURF )/RMO! SURF ) 

BLCD 

60 

END 

VELGR190 


DTDMO! SURF ) = AA/BB/RMO! SURF ) 

BLCD 

61 

SUBROUTINE BLCD !M,THETA,DTDM,INF ) 

BLCD 2 


DO 20 IA= 1 ,NSP 

BLCO 

62 


BLCD 3 


MSP! IA, SURF) = MSP! IA,SURF)+MLE( SURF) 

BLCD 

63 

BLCO CALCULATES BLADE THETA COORDINATE AS A FUNCTION OF M 

BLCD 9 


20 THSPI IA *SURF ) = THSP! IA, SURF )+THLE! SURF > 

BLCD 

69 


BLCD 5 


CALL SPLISLl MSP! 1 , SURF ) ,THSP( 1 ,SURF ) , NSP, DTDMI! SURF ) , DTDMO! SURF ) , 

BLCD 

65 

COMMON NREAD .NWRIT , ITER , I END » LER! 2 ) ,NER( 2 ) 

BLCO 6 


1 AAA , EMM , SURF)) 

BLCO 

66 

COMMON /INPUTT/ GAM, AR , TIP, RHOIP.WTFL, OMEGA, ORF ,BETAI .BETAO, 

BLCO 7 


IF IBLDAT.LE.O) GO TO 30 

BLCD 

67 

1 LAMBDA, RVTHO,REDFAC,DENTOL,FSMI,FSMO,SSM1 »SSM2 ,MBI ,MBO,MM, 

BLCD 6 


GO TO 5000 

BLCD 

68 

2 NBBI »NBL,NRSP,MOPT , LOPT , LRVB,BLDAT , AANDK.ER50R »STRFN ,SLCRD , 

BLCD 9 


IF ( SURF . EQ. 1 ) WRITE (NWRIT , 1 000 ) 

BLCD 

69 

3 INTVL.SURVL, CHORD! 2 ),STGR( 2 ) ,RI( 2 ) ,RO( 2 ) ,BETI( 2 ) ,BETO( 2 > , 

BLCD 10 


WRITE! NWR I T , 1 0 1 0 ) SURF 

BLCD 

70 

9 NSPI! 2 ) ,TITLEI( 20 ) ,MRt 50 ) ,RMSPI 50 ) .BESPF! 50 ) , WOWCR! 50 ) , 

BLCO 1 1 


WRITE! NWRIT, 1 020 ) ! MSP! IA.SURF ) ,THSP( IA.SURF ) , AAA! IA) ,EM( IA,SURF ) 

,BLCD 

71 

5 PLOSS! 50), MSP! 50, 2 ),THSP!50,2 ) 

BLCD 12 


1 IA=1 ,NSP ) 

BLCO 

72 

COMMON /CALCON/ ACTWT , ACTOMG, ACTLAM»MBIM1 ,M8IP1 ,MBOM1 ,MBOP1 ,MMM1 , 

BLCD 13 

5000 CONTINUE 

BLCD 

73 

1 HM1 ,HT , of LR , DMLR » PITCH , C P , EXPON , TWW , CPTI P , TGROG , TBI , TBO , TWL , 

BLCD 19 

c 


BLCD 

79 

2 WI,WMI ,WCRI»ITMIN»ITMAX,NIP»IMS1 , IM52 , IMS! 2 ) ,BV( 2 ) ,MLE! 2 ) , 

BLCD 15 

c 

BLADE COORDINATE CALCULATION 

BLCD 

75 

3 THLE( 2 ) ,RMI( 2 ) ,RMO( 2 ) ,BESP( 50 1 ,MV( 1 00 ) ,RM( 100), BE! 100), 

BLCD 16 

c 


BLCD 

76 

9 BEF! 100 ) ,DBDM( 100) »OBFDM( 100), SAL! 100) »PL05IMI 100) , AAA! 100), 

BLCD 1 7 


30 KK = 2 

BLCD 

77 

5 BBB! 100), IV! 101 ),ITV( 100, 2), TV! 1 00,2 ),DTDMV( 100,2), 

BLCO 16 


IF (M.GT.MSPM ,SURF) ) GO TO 50 

BLCD 

78 

6 BETAV! 1 00,2 ) ,MHl 100,2) ,DTDMH! 100,2) ,BETAH( 100,2 ) ,RMH( 100,2), 

BLCD 19 

c 


BLCO 

79 

7 BEH! 100,2), PLOSMHI 100,2) 

BLCO 20 

■c 

AT LEADING EDGE RADIUS 

BLCD 

60 

COMMON /BCDCOM/ INITI 2 ) >EM( 50 , 2 ) ,D2TDM2( 100,2) 

BLCD 21 

c 


BLCD 

61 

DIMENSION DTDMI ( 2 ) , DTDMO! 2 ) 

BLCD 22 


MMLE = M-MLEISUPF) 

BLCD 

82 


BLCO 23 


IF (MM'.E.LT.-DMLR) GO TO 90 

BLCD 

83 
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MULE = AMAX1 (0. ,MHLE ) BLCD 

THETA = SORT(MMLE*(2.#RI(SURF)-MMLE))«SIGN BLCD 

IF t THETA ,EQ- 0 . ) GO TO 40 BLCD 

RUM = Pit SURF l-MMLE BLCD 

DTDM □ RNM/THETA/FMI ( SURF ) BLCD 

THETA = THETA/RHH SURF ) BLCD 

D2TDM2! IM,5URF ) = ( -THETA-RMM*DTDM )/( RMI! SURF )*THETA )«»2 BLCD 

THETA = THETA+THLE ( SURF ) BLCD 

RETURN BLCD 

40 INF □ t BLCD 

DTDM = 1 .E10*SIGN BLCD 

THETA = THLE(SURF) BLCD 

D2TDM2! IM»SURF ) = 0. BLCD 

RETURN BLCD 

C BLCD 

C ALONG SPLINE CURVE BLCD 

C BLCD 

50 IF 1 M. LE .MSP! KK » SURF ) ) GO TO 60 BLCD 

IF (KK.GE.NSP) GO TO 70 BLCD 

KK = KK* 1 BLCD 

GO TO 50 BLCD 

60 S = MSPl KK, SURF )-MSP!KK-1, SURF) BLCD 

EMKM1 = EMIKK-1 ,SURF) BLCD 

EMK □ EMI KK, SURF) BLCD 

M5PMM B MSP(KK,SURF)-M BLCD 

MMMSP B M-MSPIKK-1 ,5URF) BLCD 

THK = THSP! KK >SURF )/S BLCD 

THKM1 = THSP! KK-1 , SURF )/S BLCD 

THETA = EMKM1 *MSPMM##3/6 . /S+EMK*MNMSP#*3/6 . /S* t THK- EMK* S/6 . )# BLCD 

1 MMMSP ♦ ( THKM1 -EMKM! «S/6 . )#M5PMM BLCD 

DTDM = -EMKM1 #MSPMM*#2/2 ./5+EMK#MMMSP**2/2 ./S+THK-THKMt -! EMK- BLCO 

1 EMKM1 )#S/6 . BLCD 

D2TDM2! IM»SURF ) = EMKM1 «MSPMM/S+EMK*MMMSP/S BLCD 

RETURN BLCD 

C BLCD 

C AT TRAILING EDGE RADIUS BLCD 

C BLCD 

70 CMM B CHORD ( SURF )+MLE( SURF )-M BLCD 

IF (CMM.LT.-DMLR) GO TO 90 BLCO 

CMM = AMAX1 ( 0 . ,CMM ) BLCO 

THETA = SQRT!CMMw(2.«RO(SURF)-CMM))«SIGN BLCD 

IF ( THETA. EQ. 0 . ) GO TO 80 BLCD 

RMM B RO( SURF )-CMM BLCD 

DTDM = -RMM/THETA/RMO! SURF ) BLCD 

THETA = THETA/RNO( SURF ) BLCD 

D2TDM2! IM*SURF ) = ( -THETA+RMM*DTDM )/( RM0( SURF )#THETA ) w**2 BLCD 

THETA = THETA*STGRt SURF ) *THLEI SURF ) BLCD 

RETURN BLCD 

80 INF = 1 BLCD 

DTDM = -1.E10«SIGM BLCD 

THETA B THLE! SURF )+STGR( SURF) BLCO 

D2TDM2( IM,SURF ) = 0. BLCD 

RETURN BLCD 

C BLCD 

C ERROR RETURN BLCD 

C BLCD 

90 WRITE (NWRIT, 1030) LER( 2 ) ,M, SURF BLCD 

STOP BLCD 

C BLCD 

C FOPMAT STATEMENTS BLCD 


84 

C 


BLCO 144 

85 

1000 FORMAT ( 1 HI , 1 3X , 33HBLADE DATA AT INPUT SPLINE POINTS) 

BLCD 145 

86 

1010 FORMAT 1 1 HL » 1 7X » 1 6HBLADE SURF ACE, 14) 

Bl CD 146 

67 

10 

'20 FORMAT ( 7X ► 1 HM , 1 OX , 5HTHETA , 1 OX , 1 OHDERIVATIVE ,5X, 1 0H2ND OERIV. / 

BLCD 147 

88 


1 (4G15.5) ) 

BLCD 148 

89 

1030 FORMAT M4HLBLCD CALL NO.,I3/33H M COORDINATE IS NOT WITHIN BLADE/BLCD 149 

90 


14H M = , G1 4 . 6 , 1 OX ,6HSURF =,G14.6) 

BLCO 150 

91 


END 

BLCD 151 

92 


SUBROUTINE MHORIZ! MV, ITV ,BL ,MBI ,MBO , ITO ,HT , DTLR ,KODE , J ,MH ,DTDMH , 

MIIORIZ 2 

93 


1MRTS ) 

MHORIZ 3 

94 

C 


MHCRIZ 4 

95 

c 

MHORIZ CALCULATES M COORDINATES OF INTERSECTIONS OF ALL HORIZONTAL 

MHORIZ 5 

96 

c 

MESH LINES WITH A BLADE SURFACE 

MIIORIZ 6 

97 

c 

KODE = 0 FOR UPPER BLADE SURFACE 

MHORIZ 7 

98 

c 

KODE = 1 FOR LOWER BLADE SURFACE 

MHORIZ a 

99 

c 


MIIORIZ 9 

100 


COMMON NREAD , NWRIT »ITER , I END , LERI 2 ) ,NERl 2 ) 

MHORIZ 10 

101 


DIMENSION MV! 100),ITV< 100),MH< lOOJ.DTOMH! 1001 

MHORIZ 1 1 

102 


INTEGER BLDAT , AANDK , ERSOR , STRFN ,SLCRD ,SURVL , AATEMP , SURF , FIRST , 

MHORIZ! 2 

103 


1 UPPER, SI, ST 

MHORIZ! 3 

104 


REAL K.KAK, LAMBDA, LMAX.MH.MLE, MR, MSL, MSP, MV, MVIN1 ,MVIM 

MHORIZ1 4 

105 


EXTERNAL BL 

MH0RIZ15 

106 


IF (MBI.GE.MBO) RETURN 

MH0RIZ16 

107 


IM = MBI 

MHORIZ1 7 

108 


10 ITIND B 0 

MH0RIZ18 

109 


20 IF (ITV! IM+1 )-ITV( IM ) -ITIND ) 30,40,50 

MHORIZ! 9 

110 


30 J = J+1 

MHORIZ20 

111 


TI B FLOAT! ITV( IM+1 )-ITO-ITINO*KODE )#HT 

MHORIZ21 

112 


ITINO = ITIND- 1 

MHORIZ22 

113 


MVIM = MV(IM) 

MHORIZ23 

114 


IF UiRTS.EQ. 1 ) MVIH=MVIM+ ! MV! IM+ 1 ) -MVIM )/1 000 , 

MH0RIZ24 

115 


CALL ROOT (MVIM,MV( IM+1 ) ,TI ,BL,DTLR ,MH1 J ) »DT0MH( J ) ) 

MHORIZ25 

116 


GO TO 20 

MHORIZ26 

117 


40 IM = IM+1 

MHORIZ2 7 

118 


MRTS = 0 

MH0RIZ28 

119 


IF UM.EQ.MBO) RETURN 

MH0RIZ29 

120 


GO TO 10 

MH0RIZ30 

121 


50 J = J+1 

MH0RIZ31 

122 


TI = FLOAT! ITV! IM )-ITO+ ITIND +KODE )#HT 

MMORIZ32 

123 


ITINO = ITIND+1 

MMORIZ33 

124 


MVIM = MV! IM ) 

MHORIZ34 

125 


IF ( MRTS . EG. 1 ) MVIM=MVIM+(MV(IM+t ) -MVIM )/1 000 . 

MHORIZ35 

126 


CALL ROOT! MVIM, MV! IM+1 ) , TI , BL ,DTLR ,MH! J),DTDMH( J)) 

MHORIZ36 

127 


GO TO 20 

MH0RIZ37 

126 


END 

MH0RIZ38 

129 


SUBROUTINE ROOT! A , B , Y , FUNCT , TOLERY ,X ,DFX ) 

ROOT 2 

130 

c 


ROOT 3 

131 

c 

ROOT FINDS A ROOT FOR (FUNCT MINUS Y) IN THE INTERVAL (A,B) 

ROOT 4 

132 

c 


ROOT 5 

133 


COMMON NREAD, NWR IT , IT ER , IEND , LER ( 2 ) , NER ( 2 ) 

ROOT 6 

134 


IEPR = 0 

ROOT 7 

135 


5 IF (IERR.EQ.1) WRITE ( NWRIT , 1 0 1 0 ) A, B,Y, TOLERY 

ROOT 6 

136 


XI = A 

ROOT 9 

137 


CALL FUNCT! XI ,FX1 »DFX,INF ) 

ROOT 10 

138 


FX1S = FX1 

ROOT 11 

139 


DFXS = DFX 

ROOT 12 

140 


IF (IERR.EQ.1) WRITE! NWRIT , 1020 ) XI ,FX1 ,DFX, INF 

ROOT 13 

1 4 J 


X2 = B 

ROOT 14 

142 


10 DO 30 1=1,20 

ROOT 15 

143 


X = ( XI +X2 )/2 . 

ROOT 16 
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RWMORH = RMOW/RHO/VEL 
IF t RUMORW. LT . 1 . ) GO TO 40 
NER( 1 > = NER< 1 )+1 

NRITEtNNRIT, 1000) LER( 1 ),NER( 1 ),RHM0RH 

IF ( NER( 1 J.EQ.50) STOP 

RETURN 

40 IF (JZ.EQ.1 ) VEL=0. 

IF (JZ.EQ.2) VEL=VEL»1.1 
GO TO 10 

1000 FORMAT! 16HLDENSTY CALI NO..I3/9H NER( 1) =,I3/10H RHO**H IS ,F7.4, 
13*H TIMES THE MAXIMUM VALUE FOR RHO*W) 

END 

FUNCTION IPF(IM.IT) 

COMMON /CALCON/ ACTWT .ACTDMG, ACTLAM.MDIMI ,MBIP1 ,MBOm ,MBOP1 ,ttMM1 

1 HM1 ,HT,DTLR,DMLR, PITCH, CP, EXPON,TWN,CPTIP,TGROG,TBI,TBO,THL, 

2 HI ,WMI ,WCRI , ITMIN, UMAX pNIP, IMS1 , IMS2 , IMS! 2 ) ,BV< 2 i ,MLE( 2 ) , 

3 THLEI 2 ) ,RMI l 2 ) ,RM01 2 ) , BESPl SO ) ,ttV(1 00 ) ,RMt 10D),BEl 100), 

4 BE F 1 1 00 ) ,DBDM( 1 00 ) ,DBFDMt 1 00 ) ,SAL( 1 00 ) ,PLOSIM( 1 00 ) »AAA( 100), 

5 BB91 100), IV( 101 ) , ITV( 100,2), TV ( 100,2) ,DTOHV( 100,2), 

6 BET AVI 1 00, 2 ) >MHt 100,2) »DTDMH1 100,2) »BETAH1 100,2 ) »RMHl 100 ,2 ) , 

7 BEH (100,2) , PLOSMHt 100,2) 

IPF = IV(IM)+IT-ITVCIM, 1 ) 

RETURN 

END 

SUBROUTINE CONTIN1 XEST , YCALC , IND , JZ , YGIV , XDEU 
C 

C~ CONTIN CALCULATES AN ESTIMATE OF THE RELATIVE FLOW VELOCITY 
C--FOR USE IN THE VELOCITY GRADIENT EQUATION 
C 

DIMENSION X(3),Y(3) 

NCALL = NCALL+1 

IF 1 IND .NE . 1 .AMD . NCALL. GT .100) GO TO 160 
GO TO (10, 30, 40,50, 60, 110, 150), IND 
C— FIRST CALL 
10 NCALL = 1 
XORIG = XEST 

IF ( YCALC. GT. YGIV. AND. JZ. EQ. 1 ) GO TO 20 
IND = 2 
Y< 1) s YCALC 
X( 1) = 0. 

XEST a XEST+XDEL 
RETURN 
20 IND = 3 

Y(3) = YCALC 
Xf 3 > = 0- 
XEST = XEST-XDEL 
RETURN 

C— SECOND CALL 
30 IND = 4 

Y(2) B YCALC 
X( 2 ) = XEST-XORIG 
XEST = XEST+XDEL 
RETURN 
*0 IND = 5 

Y( 2 ) = YCALC 
XI 2) = XEST-XORIG 
XEST = XEST-XDEL 
RETURN 

C — THIRD OR LATER CALL - FIND SUBSONIC OR SUPERSONIC SOLUTION 
50 Yf 3 ) = YCALC 


DENSTY34 
DEN5TY35 
DENSTY36 
DENSTY37 
DENSTY38 
DENSTY39 
DEN5TY40 
DENS7Y41 
DENSTY42 
DENSTY43 
DENSTY44 
DENSTY45 
IPF 2 

IPF 3 

IPF 4 

IPF 5 

IPF 6 

IPF 7 

IPF B 

IPF 9 

IPF 10 

IPF 11 

IPF 12 

IPF 13 

CONTIN 2 
CONTIN 3 
CONTIN 4 
CONTIN 5 
CONTIN 6 
CONTIN 7 
CONTIN 8 
CONTIN 9 
CONTIN 1 0 
CONTIN 11 
CONTIN1 2 
C0NTIN1 3 
C0I1TIN14 
CONTIN15 
CONTIN l 6 
CONTIN 17 
CONTIN1B 
CDNTIN1 9 
CONTIN20 
CONTIN2 1 
CONTIN22 
CONTIN23 
CONTIN24 
CDNTIN25 
C0NTIN26 
COMTIN27 
C0NTIN2B 
C0NTIN29 
CONTIN30 
CONTIN31 
CONTIN32 
CONTIN33 
CON TIN 34 
CONTIN35 
CONTIN36 
CONTIN37 
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1 


X(3) = XEST-XORIG 
GO TO '70 
60 Y(1) = TCALC 

X( 1) = XEST-XORIG 

70 IF ( YGIV.LT.AMIN1(Y< 1 ),Y(2),Y(3)») GO TO (120, 130), JZ 
80 IND = 6 

CALL PABC1 X, Y ,APA,BP8,CPC ) 

OISCR = BPB**2-4.*APA*(CPC-YGIV) 

IF (DISCR.LT. 0. ) GO TO 140 

IF ( ABS(400.*APA*(CPC-YGIV)).LE.BPB**2) GO TO 90 
XE5T □ -BPB-SIGN(SQRT( DISCR) ,APA) 

IF ( JZ.EQ. 1 .AND . APA.GT.O. . AND. Y( 3) .GT. Y( 1 ) ) XEST = -BPB+ 
1 SORT ( DISCR ) 

IF I JZ.EQ. 2. AND.APA.LT. 0. ) XEST = -BPB-SQRT1 DISCR ) 

XEST = XEST/2./APA 
GO TO 100 

90 IF (JZ.EQ.2.AND.BPB.GT.0. ) GO TO 130 
ACB2 □ APA/BPB*(CPC-YGIV)/BPB 
IF ( AB5( ACB2 ) . LE . 1 . E -8 ) AC82 = 0. 

XEST = -(CPC-YGIV)/BPB*( 1 . + ACB2 + 2.#ACB2##2) 

100 IF ( XEST . GT . X( 3 ) ) GO TO 130 
IF (XEST.LT.X1 1) > GO TO 120 
XEST = XEST+XORIG 
RETURN 

C--FOURTH OR LATER CALL - NOT CHOKED 
110 IF( XEST-XORIG . GT . X( 3 ) ) GO TO 130 
IF ( XEST-XORIG . LT.XH ) ) GO TO 120 
Y(2) = YCALC 
X(2) = XEST-XORIG 
GO TO 70 

C— THIRD OR LATER CALL - SOLUTION EXISTS, 

C— BUT RIGHT OR LEFT SHIFT REQUIRED 
120 IND = 5 
C — LEFT SHIFT 

XEST = X( 1 )-XDEL+XORIG 
XDSHFT = XEST-XORIG 
XORIG = XEST 
Y( 3 ) □ Y( 2 ) 

X(3) = X( 2 )-XOSHFT 
Y(2) = Y( I) 

X(2) = X( 1 )-XOSHFT 
RETURN 
130 IND - 4 
C— RIGHT SHIFT 

XEST □ X(3)+XDEL+XORIG 
X05HFT = XEST-XORIG 
XORIG = XEST 
Y( 1 ) □ Y12) 

XII) ■- XI 2 )-XOSHFT 
Y( 2 ) = Y( 3 ) 

X(2) = XI 3 J-XOSHFT 
RETURN 

C--THIRD OR LATER CALL - APPEARS TO BE CHOKED 
140 XEST □ -BPB/2./APA 
IND = 7 

IF (XEST. LT.X( 1 )) GO TO 120 
IF( XEST.GT . X( 3 ) ) GO TO 130 
XEST = XEST+XORIG 
RETURN 

C— FOURTH OR LATER CALL - PROBABLY CHOKED 


150 IF ( YCALC. GE.YGIV) GO TO 110 
IND = 10 
RETURN 

--NO SOLUTION FOUND IN 100 ITERATIONS 
160 IND = 11 
RETURN 
END 

SUBROUTINE PABC( X, Y , A,B ,C ) 

--PABC CALCULATES COEFFICIENTS A.B.C OF THE PARABOLA 
_-Y=A*X*#2 4 B*X 4 C, PASSING THROUGH THE GIVEN X,Y POINTS 

DIMENSION X( 3 ) , Y( 3 ) 

Cl = X( 3)-X( 1 ) 

C2 □ ( Y(2)-Y( 1 ) )/( X( 2 )-X( 1 )) 

A = 1C1*C2-Yl3) + Yll})/C1/lXt2)-Xl3)) 

B = C2- 1 X( 1 )+X( 2 ) )*A 

C = Y( 1 ) -Xt l )*B-X( 1 )**2#A 

RETURN 

END 

SUBROUTINE SPLINE ( X , Y ,N , SLOPE , EM ) 

--SPLINE CALCULATES FIRST AND SECOND DERIVATIVES AT SPLINE POINTS 
—END CONDITION - SECOND DERIVATIVES AT END POINTS ARE 
— SDR 1 AND SDRN TIMES SECOND DERIVATIVES AT ADJACENT POINTS 


COMMON NREAD , NWRIT 

DIMENSION X(N) » Y( N ) , SLOPE( N ) ,EM( N) 

DIMENSION Gl 101 ),SB1 101 > 

IERR □ 0 
SDR 1 = .5 
SDRN = .5 
C □ X( 2 ) — X ( 1 ) 

IF CC.EQ.O. ) GO TO 50 
SB( 1 ) = -SORt 
G( 1 ) = 0. 

NO = N-1 

IF (NO.LE.O) GO TO 60 
IF (NO.EQ. 1 ) GO TO 20 
DO 10 1=2, NO 
A = C 

C = XCIM )-X(I) 

IF ( A'C.EQ.O. ) GO TO 50 
IF ( A*C.LT.O. ) IERR = 1 
W = 2.**(A 4 C)-A»SB(I-1 ) 

SB( I ) = C/W 

F = (Y( IM )-Y(I) )/C-( Y(I)-Y(I-t ))/A 
10 G( I) = ( 6 . «F -A#G( 1-1 ) )/W 
20 EM(N) = 5DRN*G(N-1 )/( 1 . 4 SDRN*SB( N- 1 )) 

DO 30 1 = 2, N 
K = N+1-I 

30 EM( K ) = G(K)-SB(K)#EM(KM > 

SLOPE! 1 ) = (XM )-X(2) )/6.»l 2.*EM( 1 ) + EM(2) )MY(2)-YM ))/(X(2)-X(1 ) 
DO 40 1=2, N 

40 SLOPE ( I ) = (X(I)-X(I-I) )/6.*( 2.*EM( I) + EMU-U )♦( Y( I l-Yl 1-1 ))/ 
KXID-XCI-1 )) 

IF (IERR.EQ.O) RETURN 
50 HR I TE ( NWR I T , 1 0 0 0 ) 

WRITE! NW D IT ,1020 ) N, ( X( I ) , Y( I ) , 1 = 1 ,N ) 

IF (IERR.EQ.O) STOP 
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NRITEC NWRIT , 1 030 ) 

SPLINEA2 

50 

IF ( ABS( Z( I )-X( K ) ) . LT. TOLER ) GO TO 60 

5PLINTA7 

RETURN 

5PLINEA3 


IF (Z(I).GT.XIK)) GO TO 70 

SPLINTAO 

60 WRITE (NWRIT ,10101 

SPLINEAA 


GO TO 100 

SPLINTA9 

WRITE (NWRIT >1020) N, (X( I),Y( I ) ,1=1 ,N) 

SPLINEA5 

60 

YINT(I) = Y(K) 

SPLINT50 

STOP 

SPLINEA6 


SK = Xt K )-X(K-1 ) 

SPLINT51 

1000 FORMAT ( 1H1 , 1 OX,AAHSPLINE ERROR — ONE OF THREE POSSIBLE CAUSES/ 

SPLINEA7 


GO TO MO 

SPLINT52 

1 1 7X i 5 1 H 1 . ADJACENT X POINTS ARE DUPLICATES OF EACH OTHER./ 

SPLINEA8 

70 

IF (K.GE.N) GO TO 90 

SPLINT53 

21 7X, 36H2. SOME X POINTS ARE OUT OF SEQUENCE./ 

SPLINEA* 


K = K+1 

5PLINT5A 

31 7X , 32H3. SOME X POINTS ARE UNOEFINED.) 

SPLINE50 


GO TO 50 

SPLINT55 

1010 FORMAT ( 1H1 »1QX,62HSPLINE ERROR — NUMBER OF SPLINE POINTS GIVEN 

ISPLINE51 

60 

sz = xm-xi i ) 

SPLINT56 

IS LESS THAN TWO) 

SPLINE52 


YO = EMC 1 )«52»*2 4 2.#Y(1 )-Y( 2 ) 

SPLINT57 

1020 FORMAT ( // 1 7X , 1 8HNUMBER OF POINTS = , IA//1 7X,BHX ARRAY, 6X,8HY ARRSPLINE53 


OYOXtlJ = (Y(2)-Y(1 ))/S2-7.*EMM)/6.#S2 

SPLINTS® 

1AT/1 17X,2G13.5)) 

SPLINE5A 


YINT(I) = Y0 4 DYDXtI)#(Z(I)-X( 1) + S2) 

SPLINT59 

1030 FORMAT (1H1 ) 

SPLINE55 


D2YOX2(I) = 0. 

SPLINT60 

END 

SPLINE56 


GO TO 120 

SPLINT6I 

SUBROUTINE SPLINT (X, Y,N,Z,MAX»YINT,DYDX,D2YDX2 ) 

SPLINT 2 
SPLINT 3 

90 

IF (Z(I).LT.2.*X(N)-X(N-1 )) GO TO 100 
SN = X(N)-X(N-1 ) 

SPLINT62 

SPLINT63 

—SPLINT CALCULATES INTERPOLATED POINTS AND DERIVATIVES 

SPLINT A 


YNP1 = EM(N)*SN**2 4 2.*Y(N)-Y(N-1 ) 

SPLINT6A 

—FOR A SPLINE CURVE 

SPLINT 5 


OYDXII) = (YIN)-Y(N-I) )/SN 4 7. *EM( N )/6 .«SN 

SPLINT65 

—END CONDITION - SECOND DERIVATIVES AT END POINTS ARE 

SPLINT 6 


YINT(I) = YNP1+DYDX(I)>MZ(I)~X(N)-SN) 

SPLINT66 

— SDR1 AND SDRN TIMES SECOND DERIVATIVES AT ADJACENT POINTS 

SPLINT 7 
SPLINT 8 


02Y0X2( I ) = 0. 
GO TO 120 

SPLINT67 

SPLINT68 

COMMON NR E AD, NWRIT 

SPLINT 9 

100 

SK = X(K)-X(K-1 ) 

SPLINT69 

DIMENSION XI N) , Yl N) ,Zl MAX ), TINT (MAX ) ,DYDXt MAX ) ,D2YDX2t MAX ) 

SPLINT 10 


YINT(I) = EM(K-n*tX(K)-ZlI))**3/6./5K ♦EmK)»tZtI)-XtK-t) >**3/6 

.SPLINT 70 

DIMENSION G( 101 ) ,SB( 1 01 ) , EMM 01 ) 

SPLINT1 1 


1 /SK*(Y(K)/SK -EM( K )*SK /6. )*(Z( I )-X(K-1 ) )♦( Y(K-1 )/SK -EHIK-1 )SPLINT7J 

IERR = 0 

SPLINT1 2 


2 *SK/6. )*IXIK)-Z(I) ) 

SPLINT72 

SDRt = .5 

SPLINT 1 3 

110 

DYOXCI )=-EM(K-1 )#( X( K )-Z( I ) )**2/2 . 0/SK 4 EM(K )*(X(K-1 )-Z( I ) )**2/2 

.SPLINT73 

SDRN = .5 

SPIINT1A 


1 /SK+(Y(KJ-Y(K-t ) )/SK -( EM(K)-EM(K-U )*5K/6. 

SPLINT7A 

TOLER= ABS(X(N)-X( 1 ) )/FLOATlN)#1 .E-5 

SPLINT! 5 


D2Y0X2(I) = EM( K)-(X(K)-Z(I) )/SK#( EM(K )-EMlK-1 ) ) 

SPLINT75 

C = X( 2 )-X( 1 ) 

SPUNTI6 

120 

CONTINUE 

SPLINT76 

IF (C.EQ.O. ) GO TO 130 

SPLINT1 7 


IF IIERR.EQ.O) RETURN 

SPLINT 77 

SBM ) = -SORt 

SPLINT!® 

130 

WRITEf NWRIT, 1000) 

SPLINT7® 

GM ) = 0. 

SPLINT19 


WRITE( NWRIT ,1020) N, ( X( I ) ,Y( I ) ,1=1 ,N) 

SPLINT79 

NO □ N-1 

SPLINT20 


IF (IERR.EQ.O) STOP 

SPLINT80 

IF (NO.LE.O) GO TO HO 

SPLINT2 1 


WRITE! NWRIT, 1030) 

SPLINT81 

IF (NO. EQ. 1 ) GO TO 20 

SPLINT22 


RETURN 

SPLINT82 

DO 10 1=2, NO 

SPLINT23 

1 AO 

WRITE( NWRIT ,1010 ) 

SPLINT83 

A = C 

SPLINT2A 


WRITE (NWRIT , 1 020 ) N, ( X( I ) , Y(I ) ,1=1 ,N ) 

SPLINT8A 

C □ XCIM )-X(I) 

SPLINT25 


STOP 

SPLINT85 

IF (A*C.EQ.Q. ) GO TO 130 

5PLINT26 

1000 

FORMAT ( 1 H 1 , 1 OX*AAHSPLINT ERROR — ONE OF THREE POSSIBLE CAUSES/ 

SPLINT86 

IF (A#C. LT.O. ) IERR = 1 

SPLINT27 


1 1 7X»51Hl . AOJACENT X POINTS ARE DUPLICATES OF EACH OTHER./ 

SPLINT87 

W = 2 , M A + C )-A#SBt 1-1 ) 

SPLINT26 


217X.38H2. SOME X POINTS ARE OUT OF SEQUENCE./ 

SPLINT88 

SB ( I ) = C/M 

5PLINT29 


317X.32H3. SOME X POINTS ARE UNDEFINED.) 

SPLINT89 

F □ ( Y( I + 1 )-Y( I ) )/C-( Y( I )-Y( 1-1 ) I/A 

5PLINT30 

1010 

FORMAT ( !H1,10X,6ZHSPLINT ERROR — NUMBER OF SPLINE POINTS GIVEN 

I5PLINT90 

10 G(I) D <6.*F-A*G(I-1 ))/W 

SPLINT31 


IS LESS THAN TWO) 

SPLINT91 

20 EMIN) = S0RN#G(N-1 )/( 1 . 4 S0RN#5B(N-1 ) ) 

SPLINT32 

1020 

FORMAT ( //t 7X, 18HNUMBER OF POINTS =,IA//1 7X.8HX ARRAY, 6X,6HY ARRSPLIHT92 

00 30 1=2, N 

SPLINT33 


1AY/( I 7X.2G1 3.5 ) ) 

SPLINT93 

K = N 4 1~I 

SPLIHT3A 

1030 

FORMAT MH1) 

SPLINT9A 

30 EMIK) = G( K )-5B( K )#EM( K 4 1 ) 

SPLINT35 


END 

SPLINT95 

IF (MAX. LE . 0 ) RETURN 

SPLINT36 

SPLINT37 

C 

SUBROUTINE SPLISU X , Y , N , Y 1 P , YNP , SLOPE , EM ) 

SPLISL 2 
SPLI5L 3 

ENTRY SPLENT 

SPLINT 3® 

C — SPLISL CALCULATES FIRST ANO SECOND DERIVATIVES AT SPLINE POINTS 

SPLISL A 

DO 120 1=1, MAX 

SPLINT39 

C--EHD CONDITION - FIRST DERIVATIVES SPECIFIED AT END POINTS 

SPLISL 5 

K = 2 

SPLINTAO 

C 


SPLISL 6 

IF (ABS(Z(I)-XMn.LT. TOLER) GO TO AO 

SPIINTAI 


COMMON NR E AO, NWRIT 

SPLISL 7 

IF (Z(I).GT.2.0«*X1 1 )-X(2)) GO TO 50 

SPLINTA2 


DIMENSION X( N ) * Y ( N ) , SLOPE IN), £M( N ) 

SPLISL 8 

GO TO 80 

SPI.INTA3 


DIMENSION G( 101 ),SB( 101 ) 

SPLISL 9 

AO YINT(I) = Y( 1) 

SPLINTAA 


IERR = 0 

SPLISUO 

SK = X(K )-X(K-1 ) 

SPIINTA5 


C = X(2)-X(1 ) 

SPLTSL1 1 

GO TO no 

SPLINTA6 


IF (C.EQ.O. ) GO TO 50 

SPLI5L12 
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SB C 1 ) = .5 SPLI5L 1 3 

F = (T(2)-YM n/C-YIP SPLISU4 

G( 1) = 3 . #F/C SPLISLI 5 

HO = H-1 SPLISLI 6 

IF (NO.LE.O) GO TO 60 SPLISLI 7 

IF IN0.EQ.1) GO TO 20 SPLISL1B 

DO 10 1 = 2, NO SPLISLI 9 

A = C SPLISL20 

C = X( 1+1 )-XfI) 5PLI5L21 

IF ( A*C . EQ . 0 . ) GO TO 50 SPLISL22 

IF (A*C.LT.O.) IERR = 1 SPLI5L23 

W = 2 . A+C >-A*SB( I- 1 ) SPLISL24 

SB( I ) = C/W SPLISL25 

F = C riIM)-mi)/C-(YIIt*YIM ))/A SPLISL26 

10 G1I) = I 6 ,»F-A*G( 1-1 ) )/W SPLI5L27 

20 W = C*( 2 . -SB! N- 1) ) SPLI5L28 

F = YNP- ( Y( N ) -Y I N- 1 ) )/C SPLISL29 

EM! N ) = ( 6 .#F-C«GI N-1 ) 1/H SPLISL30 

DO 30 1=2, N SPLISL31 

K = N+1-I SPLISL32 

30 EMIK) = G!K)-5BIK)#EM(K+n SPLISL33 

SLOPE! 1 ) = YIP SPLISL34 

DO 40 1=2, NO SPLISL35 

40 SLOPE ( I ) □ (Xm-X(X-1))/6.«H2.NEn(X)+EntX-1))»(Y(X)-Y(I-m/ SPLISL36 

1(X(I)-X(I-1 )) SPLISL37 

SLOPE! N ) = YNP SPLI5L30 

IF (IERR.EQ.0) RETURN SPLISL39 

50 WRITE! NWRIT ,1000) SPLISL40 

WRITE! NWRIT , 1 020 ) N, ( X! I ) , Y( I ) , 1=1 >N ) SPLISL41 

IF (IERR.EQ.0) STOP SPLISL42 

WRITE ( NWRIT ,1030) SPLISL43 

RETURN SPLISL44 

60 WRITE ( NWRIT ,1010) SPLI5L45 

WRITE ( NWRIT ,1020) N , ( X! I ) , Y( I ) » 1= 1 *N ) SPLISL46 

STOP SPLISL47 


1000 FORMAT ( 1H1 , I0X,44HSPLISL ERROR 


ONE OF THREE POSSIBLE CAUSES/ SPLI5L48 


1 1 7X , 5 1 H 1 . ADJACENT X POINTS ARE DUPLICATES OF EACH OTHER./ SPLISL49 

217X.38H2. SOME X POINTS ARE OUT OF SEQUENCE./ SPLISL50 

31 7X, 32H3. SOME X POINTS ARE UNDEFINED.) SPLISL5 J 

1010 FORMAT ( 1 H 1 , 1 0X , 62HSPLISL ERROR — NUMBER OF SPLINE POINTS GIVEN ISPLISL52 
IS LESS THAN TWO) SPLISL53 

1020 FORMAT ( // I 7X , 1 8HNUMBER OF POINTS = , I4//1 7X , 8HX ARRAY, 6X,6HY ARRSPLISL54 
IAY/( 17X.2G13.5) > SPLISL55 

1030 FORMAT 1 1HU SPLISL56 

END 5PLISL57 

SUBROUTINE SPLIPR! DX,Y,N, SLOPE, EM) SPLIPR 2 


C--SPLIPR CALULATES FIRST AND SECOND DERIVATIVES AT EQUALLY SPACED 
C--5PLINE POINTS, USING SOR 

C--END CONDITIONS - FIRST AND SECOND DERIVATIVES ARE PERIODIC, AND 
C— Y INCREASES BY ONE IN THIS PERIOD 
C 

COMMON NREAD, NWRIT 
DIMENSION Y( N ) , SLOPE ( N ) , EM( N ) 

DIMENSION Ft 101 ) 

IF(N.LT.2) GO TO 50 
NO = N-1 

DYP = 1 .+Y( 1 )-Y( N ) 

CONST = 3./2./DX#*2 
DO 10 1=1 ,h'0 


EM! I ) = 0. 

DYM = DYP 

DYP = Y ( 1+1 )-Y! I ) 

10 F ( I ) = CONST#! OYP-DYM ) 

EM! N ) = 0. 

DYM = DYP 

DYP □ 1 . +Y( 1 )-riN) 

F{ N ) = CONST#! OYP-DYM ) 

ORF = 2./! 1 . +SQRT! . 75 ) ) 

DO 30 K= 1 ,10 

EM! 1 ) = EM! 1 )-ORF#( (EM(N) + EM(2) )/4 . +EM! 1 )-FI 1 )) 

IF ( NO . EQ . 1 ) GO TO 30 
DO 20 1=2, NO 

20 EM! I ) = EM! I )-ORF#( (EM! 1-1 )+EM(I + t ) J/4.+EM! I)-F(I) ) 
30 EMIN) = EMIN )-ORF#( ( EMtN-t ) * EMC 1 ) )/4 . + EM( N )-F(N ) ) 
SLOPEI1) = -DX/6 . #! 2 . #EM( 1 ) + EM(2))+(Y(2)-Y(1 ) )/DX 
DO 40 1 = 2, N 

40 SLOPE ( I ) = DX/6 .#(2.#EM(I)-EM(I-1 )) + CY(I)-Y(I-1 ) )/DX 
RETURN 

50 WRITE! NWRIT , 1 000 ) 

STOP 


SPLIPR 1 7 
SPLITRie 
5PLIFR I 9 
SPLIPR20 
SPLIPR2 1 
SPLIPR22 
SPLIPR23 
SPLIPR24 
SPLIPP25 
5PLIPR26 
SPLIPR27 
SPLIPR28 
SPLIPR29 
SPLIPR30 
SPLIPR31 
SPLIPR32 
SPLIPR33 
SPLIPR34 
SPLIPR35 
SPLIPR36 
SPLIPR37 


1000 FORMAT ( 1 H 1 , 1 OX , 62HSPLIPR ERROR — NUMBER OF SPLINE POINTS GIVEN ISPLIPR38 


IS LESS THAN TWO) SPLIPR39 

END SPLIPR40 

SUBROUTINE INTGRL! X, Y ,N, SUM ) INTGRL 2 

INTGRL 3 

-INTGRL CALCULATES THE INTEGRAL OF A SPLINE CURVE PASSING THROUGH INTGRL 4 
-A GIVEN SET OF POINTS INTGRL 5 

-END CONDITION - SECOND DERIVATIVES AT END POINTS ARE INTGRL 6 

-SDR1 AND SDRN TIMES SECOND DERIVATIVES AT ADJACENT POINTS INTGRL 7 

INTGRL 8 

COMMON NREAD, NWRIT INTGRL 9 

DIMENSION X! N ) • Y ( N ) • SUM! N ) INTGRUO 

DIMENSION G( 101 ),SB( 101 ),EM( 101 ) INTGRL! 1 

IERR = 0 INTGRL1 2 

SDR1 = .5 INTGRL1 3 

SDRN = .5 INTGRLI4 

C □ XI2I-XI1) INTGRL1 5 

IF (C.EQ.O. ) GO TO 50 INTGRL1 6 

SBM) = -SDR1 INTGRL1 7 

G( 1 > □ 0. INTGRL1 8 

NO B N-1 INTGRL! 9 

IF (NO.LE.O) GO TO 60 INTGRL20 

IF ( NO . EQ . 1 ) GO TO 20 INTGRL21 

DO 10 1=2, NO IHTGRL22 

A = C INTGRL23 

C = X! 1+ 1 ) — X ( I ) INTGRLC4 

IF ( A#C . EQ . 0 . ) GO TO 50 INTGRL25 

IF (A#C.LT.O.) IERR B 1 INTGRL26 

W = 2 . #( A+C l-A#5Bl 1-1 ) INTGRL27 

SB! I) = C/W INTGRL28 

F = (Y(I+1 )-Y(I))/C-(Y(I)-Y(I-1 ))/A INTGRL29 

10 G(I> = ( 6 . #F-A#G( 1-1 ) )/W INTGRL30 

20 EH(N> = SDRN#G!N-1 )/! 1 . +SDRN#5B( N-1 ) ) INTGRL31 

DO 30 1=2, N INTGRL 32 

K = N+1-I INTGRL33 

30 EMIK) = G!K)-SB(K)#EM(K + 1 ) INTGPL34 

SUM! 1 ) = 0. INTGRL35 

DO 40 1=2, N INTGRL36 

40 SUM! I ) = SUM! 1-1 )+IX(I)-X(I-1 ))#(YCI) f Y(I-l ))/2.-(X(I )-X( 1-1 ) )##3 INTGRL37 


COMMON NREAD, NWRIT 
DIMENSION X! N ) • Y ( N ) • SUM! N ) 

DIMENSION Gl 101), SB! 101), EM! 101 ) 

IERR = 0 
SDR1 = .5 
SDRN = .5 
C B X! 2 I -X! 1) 

IF (C.EQ.O. ) GO TO 50 
SBtl) = -SDR1 
G( n a o. 

NO B N-1 

IF (NO.LE.O) GO TO 60 
IF (NO.EQ.1 ) GO TO 20 
DO 10 1=2, NO 
A = C 

C = XII+1 )-X(I) 

IF ( A#C . EQ . 0 . ) GO TO 50 
IF (A#C.LT.O. ) IERR B 1 
W = 2 . #! A+C l-A#5Bl 1-1 ) 

SB! I) = C/W 

F = (Y(I+1 )-Y(I))/C-(Ym-YlI-1 ))/A 
10 G(I> = ( 6 . #F-A#G( I- 1 ))/W 
20 EM( N ) = SDRN#G! N-1 )/! 1 . +SDRN#5B( N-1) ) 
DO 30 1=2, N 
K = N+1-I 

30 EMIK) = G!K)-SB(K)#EM(K + 1 ) 

SUM! 1) = 0. 

DO 40 1 = 2, N 
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H*!EM(I)*Emi-1 U/29. 

INTGRL38 

190 NPTST = 0 

IF (XERR.EQ.O) RETURN 

INTGRL39 

DO 1 50 1=1 ,KN 

50 WRITE! NWRIT, 1000) 

INTGRL90 

150 NPTST = NPTST+K! 2 * I + 1 ) 

WHITE! NWRIT, 1020) N. 1 X! I ) ,Y(I) ,1=1 ,N> 

INTGRL91 

TLINX = 55»« 1+NPTST/f 35#KN>) 

IF IIERR.EQ.0) STOP 

IUTGRL92 

160 IF! MOO! KODE, 2). ME. 0) GO TO 160 

WRITE! NHRIT. 1030) 

INTGRL93 

C— OPTION 1 NOT CHOSEN 

RETURN 

INTGPL99 

DO 170 1=1 ,KH 

60 WRITE t NWRIT *1010) 

INTGRL95 

170 K(2»I+£) = KPCSTD(I) 

WRITE! NHRIT .1020 ) N,(X! I ) ,Y! I ) ,1=1 ,N) 

INTGRL96 

100 MX = 10 

STOP 

INTGRL97 

C — OPTION Z 

1000 FORMAT ! 1H1 » 1 0X.99HINTGRL ERROR — ONE OF THREE POSSIBLE CAUSES/ 

INTGRL98 

IF! MOO! KODE/2 ,2 ) .NE . 0 ) NX n P(3) 

1 1 7X.51H1 . ADJACENT X POINTS ARE DUPLICATES OF EACH OTHER./ 

INTGRL99 

IF (NX.EQ.O) NX = 1000 

21 7X,38H2 . SOME X POINTS ARE OUT OF SEQUENCE./ 

INTGRL50 

NY = 10 

317X.32H3. SOME X POINTS ARE UNDEFINED.) 

INTGRL51 

C— OPTION 9 

1010 FORMAT (1H1 , 10X.62HINTGRL ERROR — NUMBER OF SPLINE POINTS GIVEN 

IINTGRL52 

IF! MOD! KODE/9, 2 ) . NE . 0 ) NY = P(9) 

15 LESS THAN TWO) 

INTGRL53 

IF(NY.EQ.O) NY = 100 

1020 FORMAT ( //I 7X, 1 8HNUMBER OF POINTS = , I9//1 7X, 8HX ARRAY, 6X.BHY ARRIN7GRL59 

C— OPTION 8 NOT AVAILABLE 

1 AY/! 1 7X , 2G1 3.5)) 

INTGRL55 

IF! MOD! KODE /fl , 2 ) .NE . 0 ) WRITE! NWRIT, 1 080 ) 

1030 FORMAT ( 1H! ) 

INTGRL56 

C— ALL OPTIONS 

END 

INTGRL57 

FORY = -TRUE. 

SUBROUTINE PLOTMY!X,Y,K,P) 

PLOTMY 2 

STUG = .FALSE. 

* — PLOTMY PLOTS MULTIPLE CURVES 

PLOTMY 3 

TONLY = .FALSE. 

COMMON NREAD, NWRIT 

PLOTMY 9 

IF (MOD! KODE/32,2 ) . EQ. 0 ) GO TO 190 

LOGICAL FORY.STUG.TONLY 

PLOTMY 5 

C — OPTION 32 

DIMENSION Y LABEL! 1 1 ),A( 1 09) ,KPC5TD(6 ) ,XLAB( 8 ) , YLAB! 6 ) ,FKFD( 6 ) 

PLOTMY 6 

STUG = -TRUE. 

DIMENSION X( 1 ) , Y! 1 ) , P( 1 ) ,K( 1 ) 

PLOTMY 7 

KSY = PC 9 J 

LEVEL 2, X.Y 

PLOTMY 0 

PWR10Y = 10. *» ! KSY-6 ) 

COMMON /JOLO/ F,DX, TLINX, N.LABOUT, KFD, FORY, STUG, TONLY 

PLOTMY 9 

FY = PI 1 0 )*PWR1 OY 

EQUIVALENCE <KPC,TPC) 

PLOTMY1 0 

F = FY 

DATA BLANK, XGRID , YGRID .RMARK /1H , 1H- , 1H1 » 1 H=/ 

PLOTMY 1 1 

C~ SPECIAL CASE OF OPTION 32 

DATA KPCSTO /1H* , 1H* , 1H0 , 1HX, 1H= , 1 HO / 

PLOTMY1 2 

IF! PC 5 ) .GE . 2 . ) GO TO 190 

DATA XLAB/9H (1H.9H ,5,9HX, F ,9H1 0 . 0 ,9H > 1 09 ,9HA1 »F »9H1 0 . 0 »9H ) 

/PLOTMY! 3 

TONLY = .TRUE. 

DATA YLAB/9H (1H,9H , ,9H8X. ,9H 1 IF »9H10.0»9H ) / 

PLOTMY 19 

DY = P( 11 )*PWR! OY 

DATA FKF0/9H10.1 ,9H1 0 . 2 ,9H1 0 .3 ,9H1 0 .9 ,9H1 0 . 5.9H1 0 . 6/ 

PLOTMY 15 
PLOTMY16 

DX = DY 
C— ALL OPTIONS 

100 WRITE! NWRIT, 1000) 

PLOTMY! 7 

190 N = NPTST 

KODE = K(1 ) 

PLOTMY 10 

CALL PISTUG! Y ) 

KN = K12) 

PLOTMY 19 

IF! DX. EQ. 0 . ) GO TO 510 

NPTS = K(3) 

PLOTMY20 

FY = F 

LABOUT □ 1 

PLOTMY2 1 

DY □ DX 

KTL = 1 

PLOTMY22 

C — MODIFY Y LABEL FORMAT IF NECESSARY 

FKFDO = XLAB! 9 ) 

PLOTMY23 

IF! KFD . GT . 0 . AND -KFD . LE . 6 ) YLAB! 5 ) = FKFDIKFO: 

IF l P! 1 J.GT.2. ) GO TO 110 

PL0TMYE9 

C— SET LOGICAL VARIABLES 

:--pi i ) = i . ( dupx ) 

PLOTMY25 

FORY = .FALSE. 

KTL = KN 

PLOTMY26 

STUG = .FALSE. 

GO TO 130 

PLOTMY27 

TONLY = .FALSE. 

110 IF! P( 1 ).GT.9. ) GO TO 190 

PLOTMY20 

C--OPTION 16 

:--P( M = 3. ! DUPY ) 

PLOTMY29 

IF! MOD! K ODE/16, 2). EQ.O) GO TO 200 

KTIMES = KN- 1 

PLOTMY30 

STUG = -TRUE. 

DO 120 1=1, KTIMES 

PLOTMY3 l 

KSX = P( 6 ) 

MM = I«NPTS 

PLOTMY32 

PWR10X = IO.tMKKSX-6) 

K( 2*1*3 ) = NPTS 

PLOTMY 33 

FX □ PI 7 )*PWR 1 OX 

DO 120 11=1 ,NPTS 

PLOTMY 39 

F = FX 

L = MM+II 

PLDTMY35 

C— SPECIAL CASE OF OPTION 16 

120 Y(L) = Y( II ) 

PLOTMY36 

IF! MOD! IF IX! P( 5 ) ) , 2 ) . EQ. 1 ) GO TO 200 

PM) = 1 . OR 3. (DUPX OR DUPY) 

PLOTMT37 

TONLY = . TPUE . 

130 NPTST = KN»NPTS 

PLOTMY 38 

DX □ P( 8 )#FWR1 OX 

TLINX = 55*( MNPTS/35) 

PLOTMY39 

200 IF! P( 1 ) . LT . 2 . )N = NPTS 

GO TO 160 

PLOTMY90 

C— ALL OPTIONS 

PM ) = 5. (NO DUP) 

PLQTMT91 

ILIrt = N 


PL0T11Y92 
PL0TMY93 
PL0TI1Y99 
PLOTMY95 
FLtnnm 
PLOTMY97 
PL0TMT98 
PLOTMY99 
PLOTMY 50 
PLOTMY51 
PLOTMY52 
PLOTMY53 
PLOT NY59 
PLOTMY55 
PL0TMY56 
PL0THY57 
PL0TMY58 
PL0TMY59 
PLOTMY60 
PLOTMY61 
PLOTMY62 
PL0TMY63 
PL0TMY69 
PLOTMY65 
PLOTMY66 
PLOTI1Y6 7 
PL0TMY68 
PL0TMY69 
PLOTMY70 
PL0TMY7I 
PLOTMY72 
PLOTI1Y73 
PLOTMY79 
PL0TMY75 
PL0TMY76 
PLOTMY77 
PL0TMY78 
PLOTMY79 
PLOTMY80 
PLOTMYB 1 
PLOTMY82 
PL0TMY83 
PLOTMY89 
PLOTMY05 
PLOTMY06 
PLOTMY37 
PLOTMTQ8 
PLOTHrQ9 
PLoinr90 
pLornr9i 
PI.OTMY92 
PLOTMY93 
PLOTNY99 
PLOTMY95 
PLOTI1Y96 
PLOTHY97 
PLOTMY98 
P10TMY99 
PLOT Ml 00 
PLOimOl 
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CALL PISTUGIX) 



PLOTMl 02 

LABOUT = 5 

PLOTMl 62 

IFtDX.Eq.O. ) GO TO 510 



PLOTM1 03 

GO TO 510 

PLOTMl 63 

FX = F 



PLOTMl 04 

330 KPC □ K( IL+1 ) 

PLOTMl 64 

C— MODIFY X LABEL FORMAT IF NECESSARY 



PLOTMl 05 

GO TO 350 

PLOTMl 65 

IF ( KFO .GT . 0 . AND . KFD . LE .6 ) XLAB( 4 ) 

= 

FKFDt KFD 1 

PLOTMl 06 

>-DUPX 

PLOTMl 66 

IF 1 KFD . GT . 0 . AND . KFD . LE . 6 ) XLABl 7 ) 

= 

FKFD(KFD) 

PLOTMl 07 

340 KPC = K(2*IM+2) 

PLOTMl 67 

C— COMPUTE AND TEST Y LABELS 



PLOTMl 06 

DEFINE KYL 

PLOTMl 66 

210 TDY = DY*10. 



PLOTMl 09 

350 KYL = KY + 2 

PLOTMl 69 

DO 220 1=1,11 



PLOTMl 10 

PLOT OUT RANGE Y AS □ 

PLOTMl 70 

TEMP = FY*FLOATtI-1 )*TDY 



PLOTMl 1 1 

IF(KY.LT.O) GO TO 360 

PLOTMl 71 

ATEMP = ABS(TEMP) 



PLOTMl 1 2 

IF ( KY . GT . 1 0 1 ) GO TO 370 

PLOTMl 72 

IF t ATEMP.LT. 1 . E-7 ) TEMP = 0. 



PLOTMl 13 

GO TO 390 

PLOTMl 73 

IF (ATEMP. GE.1 .E + 7) LABOUT = 2 



PLOTMl 1 4 

360 KYL = 1 

PLOTMl 74 

220 YLABEUI) = TEMP 



PLOTMl 15 

GO TO 300 

PLOTMl 75 

KSYLAB = 1 



PLOTMl 16 

370 KYL □ 104 

PLOTMl 76 

C — WRITE Y LABELS 



PLOTMl 17 

360 TPC = RMARK 

PLOTMl 77 

230 WRITEtNWRIT, YLAB) YLABEL 



PLOTMl 16 

390 At KYL ) = TPC 

PLOTMl 78 

IFIKSYLAB.EQ.21 GO TO 510 



PLOTMl 19 

ARE ALL POINTS DONE_ 

PLOTMl 79 

C-- INITIALIZE VARIABLES FOR MAIN PLOT 



PLOTMl 20 

IF(NCTR.GE.ILIM) GO TO 400 

PLOTM180 

KSYLAB = 2 



PLOTMl 21 

NCTR = NCTR* 1 

PLOTMl 81 

LCTR = 0 



PLOTMl 22 

IGON = IMIN+1 

PLOTH182 

NCTR = t 



PLOTMl 23 

GO TO 290 

PLOTMJ83 

KOUT = 1 



PLOTMl 24 

C— ALL POINTS PLOTTED FOR ENTIRE PLOT 

PLOTMl 64 

KQUIT = 1 



PLOTMl 25 

400 KOUT = 2 

PLOTM185 

XMIN = FX-DX/2. 



PLOTMl 26 

410 IF( MODt LCTR , 1 0 ) .GT. 5 ) NX = 10 

PLOTMl 86 

XMAX = FX+DX/2. 



PLOTMl 27 

IF ( MOD( LCTR , NX ) . EQ . 0 ) KQUIT = 2 

PLOTM187 

C--FILL THE A ARRAY FOR CURRENT LINE OF 

PLOT 

PLOTMl 28 

C 

PLOTMl 88 

C FILL THE A ARRAY WITH BLANKS OR X- 

GRID MARKS, AS APPROPRIATE 

PLOTMl 29 

C— WRITE CURRENT LINE OF PLOT 

PLOTH189 

240 AFILL = BLANK 



PLOTMl 30 

420 IF ( MODt LCTR 1 1 0 ) . EQ . 0 ) GO TO 430 

PLfTMf90 

IF( MOD( LCTR »NX 1 . EQ. 0 1 AFILL = XGRID 


PLOTMl 31 

C— WRITE LINE WITHOUT XLABEL 

PLOTMl 91 

C— FILL IN LINE AND INSERT Y GRID MARKS 



PLOTMl 32 

WRITEtNWRIT ,1020) A 

PLOTMl 92 

260 DO 270 1=2,104 



PLOTMl 33 

GO TO 440 

PLOTMl 93 

270 A(I) = AFILL 



PLOTMl 34 

430 XLABEL = FX+FLOATl LCTR )»DX 

PLOTMl 94 

DO 260 1=2,1 04, NY 



PLOTMl 35 

TEMP □ ABS( XLABEL) 

PLOTMl 95 

280 A(I) = YGRID 



PLOTMl 36 

IF(TEMP. GE.1. E+7) LABOUT = 2 

PLOTMl 96 

AM 1 = BLANK 



PLOTMl 37 

IFtTEMP.LT.I .E-7) XLABEL □ 0. 

PLOTMl 97 

IF ( KOUT . EQ. 2 ) GO TO 410 



PLOTMl 36 

C— WRITE LINE WITH XLABEL 

PLOTMl 98 

C— FIND INDEX OF NEXT X ON THE CURRENT 

LINE 

PLOTMl 39 

WRITEtNWRIT »XLAB) XLABEL, A, XLABEL 

PLOTMl 99 

IGON = 1 



PLOTMl 40 

C— INCREMENT LINE COUNTER 

PLOTM200 

290 CONTINUE 



PLOTMl 4 1 

440 LCTR = LCTR+1 

PLOT M2 01 

IF C IGON.GT. ILIM) GO TO 420 



PLOTM142 

XMIN = XMAX 

PLOTM202 

DO 300 I=IGON,ILIM 



PLOTMl 43 

XMAX = DXM FLOAT! LCTR )* . 5 )+FX 

PLOTM203 

IF( Xdl.LE. XMIN. OR. X(I).GT. XMAX) 

GO 

TO 300 

PLOTMl 44 

C— DO NEXT LINE 

PLOTM204 

IMIN = I 



PLOTMl 45 

GO TO ( 240 ,230), KQUIT 

PLOTM205 

GO TO 310 



PLOTMl 46 

C 

PLOTM206 

300 CONTINUE 



PLOTMl 47 

C— PLOT COMPLETED - WRITE FINAL LINE OR ERROR MESSAGE 

PL0TM207 

C~ IF NO MORE POINTS ON THE CURRENT LINE, 

WRITE IT OUT 

PLOTMl 48 

510 GO TO (560, 520, 540, 540, 550), LABOUT 

PLOTM208 

GO TO 420 



PLOTMl 49 

520 WRITEtNWRIT, 1040) 

PLOTM209 

C— PLACE PLOTTING CHARACTER IN PROPER POSITION (KYL) IN THE A ARRAY 

PLOTMl 30 

GO TO 570 

PLOTM210 

310 DO 390 IM=1 iKTL 



PLOTMl 51 

540 WRITEtNWRIT, 1050) ( X( I ) » Y( I ) ,1=1 , 2 ) , ( K( J ) , J=1 , 3 ) ,P( 1 ) 

PLOTM211 

LL = IMINMIM-1 )*NPTS 



PLOTM152 

GO TO 570 

PLOTM212 

KY = <Y(LL)-FY)/DY+.5 



PLOTMl 53 

550 WRITEtNWRIT, 1060) 

PLOTM21 3 

IF( P( 1 ) . LT . 2 . ) GO TO 340 



PLOTMl 54 

560 WRITEtNWRIT, 1000) 

PLOTM214 

C—DUPY OR NODUP 



PLOTMl 55 

C— RESTORE INITIAL FORMATS BEFORE RETURN 

PLOTM2 1 5 

IK = 0 



PLOTMl 56 

570 CONTINUE 

PLOTM2 1 6 

KLA5T = 2«KN+1 



PLOTM157 

YLAB(5> = FKFDO 

PLOTM21 7 

DO 320 IL=3,KLAST , 2 



PLOTMl 56 

XLABl 4 J = FKFDO 

PLDTM2 1 0 

IK □ IK+K(IL) 



PLOTMl 59 

XLABl 7) = FKFDO 

PLOTM219 

IF(IK.CE.IMIN) GO TO 330 



PLOTMl 60 

RETURN 

PLOTM220 

320 CONTINUE 



PL0TMJ61 

C— FORMAT STATEMENTS 

PLOTM221 
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1000 FORHATMH ) 

1020 FORMATMH ,15X,10AA1) 

1 0^0 FORMATMH ,3X,10HBAD LABELS) 

1050 FORMAT ( !H ,5H N.G. ,AG20.8,3I7,F8.2) 

1060 FORMATMH , 1 6HERR0R IN K ARRAY) 

1080 FORMATMH , 98X , 28HOPTION 0 NO LONGER AVAILABLE) 

ENO 

SUBROUTINE PISTUG! ARRAY ) 

PISTUG CALCULATES OX, KFD, AND FX OR FY 
LOGICAL FORT . STUG , TONLY 
DIMENSION ARRAYM) 

LEVEL 2, ARRAY 

COMMON /JOLO/ F >DX,TLINX,N, LABOUT, KFD, FOR Y, STUG, TONLY 
KHAR(XMAX) = INT( ALGG10(XMAX) 4 A0. )-AQ 
Z — FIND XI, THE FIRST POINT TO BE PLOTTED 
10X1= ARRAYM) 

IF ( STUG ) GO TO 110 
00 100 J=2,N 

tOO XI = AMINKX1 ,ARRAY( J ) ) 

110 IF(STUG) XI = F 

C— FIND XN, THE LAST POINT TO BE PLOTTED 
DIFMAX = 0. 

00 120 J=1,N 

OIF = ABS1 XI -ARRAY( J ) ) 

IF (OIF » LE.OIFMAX ) GO TO 120 
DIFMAX = OIF 
IHOLO = J 
120 CONTINUE 

inOIFtlAX.EQ.O. ) GO TO 300 
XN = ARRAY! IHOLD) 

IF (TONLY) GO TO 150 
C — CALCULATE DX 
TLIN = 101 . 

IF( .NOT.FORY) TLIN □ TLINX 
C5 □ ( XN-X1 J/TLIN 
K7 = KHAR(ABS(C5)i 
C9 = ABS(C5)/10.— K7 
D = 2. 

IF(C9.GT.2. ) 0 B 2.5 
IFIC9.GT.2 .5) 0=5. 

IF(C9.GT.5. ) D □ 10. 

OX □ SIGN(D*10.— K7,C5) 

C— CALCULATE KFD 

150 K7 = KHAR( ABS( DX ) ) 

IF(FLOAT(K7)M .5.GT.5.6) LABOUT = 2 
KFD = MAXQ(0,MIN0!6»-K7) ) 

IF (STUG) GO TO 200 
C — CALCULATE F (FX OR FY) 

KC1 2 □ INTI AB5( Xt/OX ) ) 

KC15 = KC1 2-MOQl KC 12,10) 

IF(OX*X1.LT.O. ) KC1 5 = KC15 4 10 
IFtXl.LT.O.) KC15 = -KC15 
F = ABS( DX ) -F LOAT ( KC 1 5 ) 

IF( .NOT.FORY) GO TO 200 

C — CALCULATE F OIFFERENTLY, IF NECESSARY, TO KEEP ALL POINTS ON PLOT 
TEMP = F 4 1 00 . -DX 

IF(TEMP.GE.SIGN(XN»OX) ) GO TO 200 
IF(DX*X1 .LT.O. ) KC12 = KC12M 
IF t XI .LT.O. ) KC12 = -KC 1 2 
F = ABS( DX )#F LOAT ( KC 1 2 ) 


PLQTM222 
PLOTM223 
PLOTM229 
PLOTM225 
PLOTM226 
PLOTM227 
PLQTM220 
PISTUG 2 
PISTUG 3 
PISTUG A 
PISTUG 5 
PISTUG 6 
PISTUG 7 
PISTUG 0 
PISTUG 9 
PISTUGl 0 
PISTUGlt 
PISTUG12 
PISTUGl 3 
PISTUGl A 
PISTUGl 5 
PISTUG16 
PISTUGl 7 
PI5TUG18 
PISTUGl 9 
PISTUG20 
PI5TUG2 1 
PISTUG22 
P1STUG23 
PISTUG2A 
PISTUG25 
PISTUG26 
PISTUG27 
PISTUG28 
PISTUG29 
PISTUG30 
PISTUG31 
PISTUG32 
PISTUG33 
PI STUG 3 A 
PISTUG35 
PISTUG36 
PISTUG37 
PISTUG30 
PISTUG39 
PISTUGAO 
PISTUGA1 
PI5TUGA2 
PISTUGA3 
PISTUGAA 
PISTUGA5 
PI5TUGA6 
PISTUGA7 
PISTUGA0 
PISTUGA9 
PISTUG50 
PISTUG51 
PI57UG52 
PI5TUG53 
PISTUG5A 


C--RETURN PISTUG55 

200 RETURN PIS1UG56 

C--ERROR RETURN PISTUGS? 

300 DX = 0. PISTUGS8 

LABOUT = 3 PI51UG59 

GO TO 200 PISTUG60 

ENO PISTUG61 

SUBROUTINE BLADE! IPLOTB ) BLADE 2 

C — # THE CENTRAL CONTROL ROUTINE BLADE 3 

REAL KIC, KICR, KIP, KIS, KM, KOC, KOCR, KOP, KOS, KTC, KTP, KTS BLADE A 

COMMON /SCALP/ BLADE 5 

1 BLADES, CALP, CCC, CEPE, CKTC, CKTS, Cl, C2, DRCE, ORCLEP, DRCLESBLADE 6 
2, DPCM5T, DRCMT, DRCOI , DRCS, DRCT , DRCTEP, ORCTES, DRCTI , DRCTMP, BLADE 7 
3 DRCTMS , DRCTPI , DRCTSI, DSME, DSMT , DSOT, DSP, 0SP1 , 0SP2, DS5E, BLADE 8 

A DSS1 , DS52 , DST , DSTI, EMT, IR, IN, KIC, KIP, KIS, KM, KOC, KOP, BLADE 9 

5 KOS, KTC, KTP, KTS, PI* RCI, ROMS, RCQ, RCT , RCTP, RCTS, REE, BLADE 10 

6 RELEP, PELES, REM, REMS, REMT , REOI, RES, RET, RETEP, RETE5, RETIBLADE 11 

7, RETMP » RETMS, RETP, RETS, RIC, SGAM, SALP> SKTC, SKTS, TEPE, BUOE 12 

8 THMAX, TKTN BLADE 13 

COMHON /INPUTB/ BLADE 1A 

1 ALP, KICR, KOCR, NB, P, R, SOLID, T, THLE , THTE, TMX, ZM BLADE 15 

COMMON /INPUTT/RDUM1 (17), IOUM1 ( 16 ) ,XCH0RD( 2 ) ,XSTGRt 2 ) ,XRlt 2 ) , BLADE 16 

1 XRO( 2 ) »XBETI( 2 ) ,XBETO( 2 ) » IDUM2( 2 ) ,R0UM2( 270 ) ,XMSP( 50,2), BLADE 17 

2 XTHSP( 50,2) BLADE 18 

COMNON/BLANK/ BLADE 1 9 

1 TH5PK13), THSP2M3), ZMSPIM3), ZMSP2M3), BETH, BETI2 , BET01 , BLADE 20 

2 BET02 , CHORD, RI, RO, STGR BLADE 21 

COMMON/INPUTA/ XXMSPt 50 , 2 ) ,XXTHSP( 50,2 ) BLADE 22 

DIMENSION FSBM3) BLADE 23 

DATA FSB/. 0,. 05, .12, .2, .3, .A, .5, .6, .7, .8, .88, .95,1.0/ BLADE 2A 

IR = 5 BLADE 25 

IW s 6 BLADE 26 

PI = 3.1A15927 BLADE 27 

RADIAN = 57.29578 BLADE 28 

IF(IPLOTB.NE.O) BLADE 29 

-WRITE ( IW, 2000 ) NB, R, ALP, SOLID, KICR, KOCR, T> ZM, P, TMX, BLADE 30 

X THLE, THTE BLADE 31 

C m INPUT OPTIONS ARE IP d j OR 3 FOR PUNCH AND IP.GT.t FOR PLOT BLADE 32 

THMAX □ TMX/2.0 BLADE 33 

KIC = KICR /RAD I AN BLADE 3A 

KOC = KOCR/RAOIAN BLADE 35 

TALP = TAN! ALP/RADIAN) BLADE 36 

SALP = TALP/SQRTM.O 4 TALP— 2) BLADE 37 

CALP = SQRTM.O - SALP— 2) BLADE 38 

BLADES □ NB BLADE 39 

GBL = (KIC 4 KOO/2.0 BLADE AO 

SGAM = SIN(GBL) BLADE M 

CGAM = SQRTM.O - SGAM— 2) BLADE A2 

CCC = 1.0 - THLE - THTE BLADE A3 

Cl = T - THLE BLADE AA 

C2 = 1.0 - T - THTE BLADE A5 

THO = THLE - THTE BLADE A6 

TEPE = THD/CCC BLADE A7 

CEPE = t.Q/SQRTM.O 4 TEPE— 2) BLADE A8 

SEPE n TEPE-CEPE BLADE A9 

CALL CONIC(CHD) BLADE 50 

C — * BLADE ELEMENT SUCTION SURFACE Z AND THETA ARRAYS REFERENCED BLADE 51 


C — * TO THE LOWEST Z POINT OF THE LEADING EDGE CIRCLE. 
ZTPS = (DRCTSI 4 THLE )*CHD 
RTC = RIC 4 (DRCTSI 4 THLE J-SALP 


BLADE 52 
BLADE 53 
BLADE 5A 
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TTRS = RETS/RTC 

BLADE 

55 

DRCTES 

= (DRCTES ♦ DRCOI )*CHD 

BLADE115 

FST = DSS1/ID5S1 ♦ DS52 ) 

BLADE 

56 

DRCTEP 

= (DRCTEP ♦ DRCOI )#CHD 

BLADEH6 

DO 50 K=1 ,13 

BLADE 

57 

DRCOI 

□ DRCOI*CHD 

BLADE! 17 

FS □ FSB(K) - FST 

BLADE 

58 

DRCLES 

= ORCLES*CHD 

BLADE118 

IF (FS.GT.0.0) GO TO 20 

BLADE 

59 

DRCLEP 

= ORCLEP*CHO 

BLADE119 

DSS □ DSS1»FS/FST 

BLADE 

60 

REF = 

0.0 

BLADE120 

DK = (KTS - KIS)*D5S/DS51 

BLADE 

61 

KTC = 

KTC*RADIAN 

BLADE 121 

GO TO 30 

BLADE 

62 

KTS = 

KT5*RADIAN 

BLADE122 

OSS = 0SS2*FS/( 1.0 - FST) 

BLADE 

63 

KTP = 

KTP* RAD IAN 

BLADE123 

DK = (KOS - KTS ) KD5S/D552 

BLADE 

64 

KM = KM#RADIAN 

BLADE124 

CALL EPS LON ( KTS , DK ,RCT5 »DSS »DRCTS ,RE5 ) 

BLADE 

65 

DSTI = 

DSTI*CHD 

BIADE1 25 

ZMSPHK) = ZTRS + 0RCTS#CHQ 

BLADE 

66 

DSOT = 

DSOT*CHD 

BLADE1 26 

TH5PHK) = TTRS ♦ RES/(RTC + ORCTS«SALP) 

BLADE 

67 

DSS1 = 

DSS1KCHD 

BLADE127 


C *MN 

C 


BLADE ELEMENT PRESSURE SURFACE Z AND THETA ARRAYS REFERENCED BLADE 68 


DSS2 - DS5u#CHD 


BLA0E1 28 


*»* 

TO THE LOWEST Z POINT OF THE LEADING EDGE CIRCLE. 

BLADE 69 


DSP1 = DSP1*CHD 

BLA0E1 29 


ZTRP = t DRCTPI ♦ THLE )#CHD 

BLADE 70 


DSP2 = DSP2*CHD 

BLADE1 30 


RTC = R 1C ♦ (DRCTPI ♦ THLE )#5ALP 

BLADE 71 


IF ( IPLOTB . EQ. 0 ) GO TO 110 

BLA0E131 


TTRP = RETP/RTC 

BLADE 72 


WRITE (IN, 21 20 ) DRCLES, DRCTES, DRCTSI, DRCTMS, RELES, RETES, 

BLADE132 


FST □ OSP1/DSP 

BLADE 73 


X RETMS, REMS, BETH, BET01 , KTS, KM, DSSJ, DSS2 

BLADE? 33 


DO 100 K=1,13 

BLADE 74 


WRITE (IN, 21 10) REF, DRCOI, DRCTI, DRCMT, REF, REOI, RETI, REMT, 

BLADE1 34 


FS = FSB( K 1 - FST 

BLADE 75 


X KICR , KOCR , KTC, KM, DSTI, DSOT 

BLADE1 35 


IF (FS.GT.0.0) GO TO 70 

BLADE 76 


WRITE (IN, 2130) DRCLEP, DRCTEP, DRCTPI, DRCTMP, RELEP, RETEP, 

BLADE1 36 


DSS = D5P1*FS/F5T 

BLADE 77 


X RETMP, PEM, BETI2, BET02, KTP, KM, DSPf , D5P2 

BLADE137 


DK = 1 KTP - KIP)*D5S/DSP1 

BLADE 78 


110 CONTINUE 

BLADE1 38 


GO TO SO 

BLADE 79 


RSALP = RADIAN#SALP 

BLADE1 39 

70 

DSS = DSP2#F5/( 1 . 0 - FST) 

BLADE 80 


RELES = RSALP*RELES 

BLADE 140 


DK = (KOP - KTP)*DSS/D5P2 

BLADE 81 


RETES B R5ALP«RETES 

BLADE141 

80 

CALL EPSLON1 KTP,DK ,RCTP,D5S,DRCTS,RE5 ) 

BLADE 82 


RETMS = R5ALP#RETM5 

BLADE 1 42 


ZMSP21K) = ZTRP ♦ DRCT$*CHD 

BLADE 63 


REMS = RSALP*REM5 

BLADE143 

100 

TH5P21K ) = TTRP + RES/tRTC + DRCTS*SALP) 

BLADE 84 


REOI s RSALP&REOI 

BLADE144 


CHORD = (DRCOI ♦ THLE ♦ THTE )#CHD 

BLADE 85 


RETI s R5ALP#RETI 

BLADE145 


RI = THLE*CHD 

BLADE 86 


REMT = RSALP#REMT 

BLADE146 


RO = THTE»CHD 

BLADE 87 


RELEP = RSALPaRELEP 

BLADE147 


BETIJ = KIS*RADIAN 

BLADE 86 


RETEP = R5ALPXRETEP 

BLADE148 


BET01 = K05*RADIAN 

BLADE 89 


RETMP = R5ALP»RETMP 

BLADEI49 


BETI2 = KIP*RA0I AN 

BLADE 90 


REM = RSALP»REM 

BLADE150 


BET02 = KOP#RADIAN 

BLADE 91 


BETII = BETI1 ♦ RELES 

BLADE15I 


GBL=RAOIAN*ASIN(SGAM) 

BLADE 92 


BET01 = BET01 + RETES 

BLADE152 


IF( IPLOTB.NE . 0 ) 

BLADE 93 


KTS □ KTS + RETMS 

BLADE153 

«WRITE ( IW » 21 00 ) CHD » GBL 

BLADE 94 


BMS = KM ♦ REMS 

BLADE1 54 


RTE = R1C + DRCOI#SALP 

BLAOE 95 

C 

KOCR = KOCR + REOI 

BLADE1 55 


RM = R1C + (DRCTI + DRCMT 1*SALP 

BLADE 96 


KTC = KTC * RETI 

BLADE1 56 


REOI = REOI/RTE 

BLADE 97 


KM = KM ♦ REMT 

BLADE157 


5TGR = REOI 

BLADE 98 


BETI2 = BETI2 ♦ RELEP 

BLADE 1 58 


RETI = RETI/( R 1 C ♦ DRCTI*SALP) 

BLAOE 99 


BET02 = BET02 + RETEP 

BLADE1 59 


RENT = RETI + REMT/RM 

BLADE 1 00 


KTP = KTP ♦ RETMP 

BLADEI60 


RELES = RELE5/( R 1 C ♦ DRCLES*SALP ) 

BLADE 1 0 1 


BMP = K11 + REM 

BLADE1 6 1 


RETES □ REOI ♦ RETES/( RTE + DRCTES#SALP) 

BLADE102 


IF l IPLOTB . EQ . 0 ) GO TO 125 

BLADE162 


RELEP = RELEP/( R 1 C + DRCLEP#SALP ) 

BLADE 1 03 


WRITE (114,2135) 

BLAOE 1 63 


RETEP = REOI + RETEP/(RTE ♦ DRCTEP*SALP> 

BLADE 1 04 


WRITE ( IN, 2 1 36 ) RELES, RETES, RETMS, REMS, BETII, BET01 » KTS, BMSBLAOE 1 64 


REMS = REMT ♦ REM5/IR1C + ( DRCTSI - DRCTMS )*SALP ) 

BLADE 1 05 


WRITE ( IW, 2 1 37 ) REF, REOI, RETI, REMT, KICR, KOCR, KTC, KM 

BLADE165 


REM = REMT + REM/IR1C ♦ (DRCTPI - DRCTMP )#SALP ) 

BLADE 1 06 


WRITE C IN, 2138) RELEP, RETEP, RETMP, REM, BETI2 , BET02 , KTP, BMP 

BLADE 1 66 


RETM5 = REMS + RETMS/(R1C + DRCTSI»SALP) 

BLADE 1 07 


WRITE (IN, 2140) CHORD, STGR , RI, RO, BETII, BET01 , RI, RO, BETI2 

.BLADE167 


RETMP = REM + RETMP/(R1C + DRCTPI#5ALP ) 

BLADE 1 06 


X BET02 

BLADE168 


DRCMT = (DRCTI ♦ DRCMT )*CHD 

BLADE 1 09 


DO 120 K= 1 , 1 3 

BLADE 1 69 


DRCTMS □ (DRCTSI - DRCTMS )#CHD 

BLADE 1 l 0 


120 WRITE (IN, 2150) ZMSPHK), THSPHK), ZMSP2(K), THSP2(K) 

BLAOE1 70 


DRCTMP = f DRCTPI - DRCTMP)#CHD 

BLADE 1 f 1 


WRITE ( IW, 2 160 ) 

BLADE 1 71 


DRCTSI = DRCTSI*CHD 

BLADE112 


125 CONTINUE 

BLADE 1 72 


DRCTPI = DRCTPI#CHD 

BLADE113 

C 

«*« ASSIGN VALUES TO BE PASSED TO TSONIC AND OPTIMIZATION PROGRAM 

BLADE 1 73 


DRCTI = DRCTHCHO 

BLADE 1 1 4 


/CHORD l 1 )=CHOPD 

BLADEI74 
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XSTGRU )=STGR 

BLADEt 75 

XRI(1)=RI 

BLADE 176 

XROU )=RO 

BLADEl 77 

XBETK1 )=BETI1 

BLADE170 

XBETO( 1 )=BET01 

BLADEl 79 

DO 130 K=t , 1 3 

BLADEI0O 

XMSPfK, 1 )=ZMSP1 (K) 

BLADE 1 01 

XXMSPIK, l )=ZMSP1 (K ) 

BLADE162 

XXTHSPt K , 1 )=THSPI(K) 

BLADE183 

XTHSPIK,! )=THSP1(K) 

BLADE 18A 

XRI( 2 )=RI 

BLADE165 

XRO(2)=RO 

BLADE106 

XBETH 2 )=BETI2 

BLADE107 

XBETOt 2 )=BET02 

0LADE100 

DO 1 AO K=1,13 

BLADE109 

XMSP(K,2)=ZMSP2(K) 

BLADEl 90 

XXMSP(K,2)=ZMSP2(K) 

BLADEl 91 

XXTHSP(K,2)=THSP2(K) 

BLADEl 92 

XTHSP(K,2)=THSP2(K) 

BLADEl 93 

IF ( IPLOTB.EQ. 1 ) CALL EPLOT 

BLADEl 9A 

RETURN 

BLADE193 


2000 FORMAT (1H1 // ^6X,39H**«« INPUT FOR BLADE ELEMENT PROGRAM //BLADE 1 96 

1/ A9X,5HINLET,AX»6H0UTLET , AX, 6H TRANS. ,AX,7HMAX.TH. ,3X,6HIN/OUT,5X, BLADEl 97 

2 AHMAX. ,6X,AHL.E.»6X,AHT.E. / 10X, 3HNO. ,6X,5HINLET,5X, AHCONE , AX, BLADEl 90 

3 0HSOLIDITY,AX,5HBLADE,5X,5HBLADE,5X,AHLOC. ,6X,AHL0C. ,5X,7HTURNINGBLADEt 99 

A,3X,6HTHICK.,5X,AHRAD.,6X,AHRAD. / 8X,6HBLA0ES, AX,6HRADIUS , 5X, BLAQE20Q 

5 5HANGLE, 15X»5HANGLE»5X»5HANGLE»AX»6H/CH0RD,AX»6H/CHQR0,5X,AHRATE »BLADE20t 

6 5X»6H/CH0RD»AX,6H/CH0RD »AX»6H/CH0RD / 20X>3H( L),6X,5H(0EG ),15X, BLADE202 

7 5H( DEG) »5X»5H( DEG) // 9X,I3,3X,3F1 0.5.F9. 3, FI 0.A,6F10.5 ) BLADE203 

2100 FORMAT (//////// A5X,A1H"«* OUTPUT FROM BLADE ELEMENT PROGRAM BLAOE20A 

1 /// 69X,7HELEMENT / 69X.7HSETTING / 58X,5HCH0RD,7X,5HANGLE / 59X.BLADE203 

2 3HI L) »BX,5H(DEG) // 52X,F12.5,F12.A /// 10X,32H* MERID, LOC. FROMBLADE206 

3 L.E. CENT. **»2X»32H*" THETA LOC. FROM L.E. CENT. w*,2X»9( 1H* ) , BLADE207 
A 1 AH BLADE ANGLES ,9( tH« ) ,3X, 15HSEGHENT LENGTHS / 1 0X,B( AH»#«# ) » DLADE200 
S 2X»8( AH#**# ) » 2X» 33H( WITH RESPECT TO LOCAL CONIC RAY ) ,2X,5( 3H### ) BLA0E209 


6 // OX , 31 AX , 5HINLET , 2X» 6H0UTLET » 2X » 6HTRANS . » 2X » 7HMAX . TH . ) 1 AX# BLADE21 0 

7 5HFIRST,2X,6HSECOND / 0X,A(5X,3H( l)),3X,A(3X,5H(RAD ) )>2X,A(3X, 0LAOE2U 

8 5H(OEG) ) , 1X»2( 5X»3H( L) ) / ) BLADEZ1 2 

2110 FORMAT ( 3X,5HCENT. ,1X,AF0.5,2X,AF8.5,2X,AF0. 3,3X,2F8.5 / ) BLADE21 3 

2120 FORMAT ( 3X»5HSUCT . , 1X,AF0.5 ,2X»AF8.5,2X,AFB. 3,3X,2F8.5 / ) BLADE214 

2130 FORMAT ( 3X,5HPRES. , 1X,AF0.5,2X,AF0.5,2X,AF8. 3,3X,2F8.5 / ) BLADE215 

2135 FORMAT ( // AAX,32H#### CONIC ANGLE COORD. - C ####, 2X, 9MH# ), BLADE2K 

1 1 AH BLADE ANGLES ,9(1H*) / 1H*,69X,1H- / AAX.32H## (FROM LEADINGDLADE21 1 

2 EDGE CENT.) ###,2X,32H(HITH RESPECT TO L.E. CENT. RAY)// A2X, BLADE2U 

3 2(AX,5HINLET,2X,6H0UTLET,2X,6HTRANS.,2X,7HMAX.TH. ) / A3X, BLADE2H 

A A( 3X>5H(DEG ) ) iZX»A( 3X,5H(0EG ) ) / ) BLAOEZZC 

2136 FORMAT ( 37X,5HSUCT. , IX,AF8. 3,2X,AF0.3 / ) BLADEZZ1 

2137 FORMAT ( 37X,5KCENT. »1X,AF0.3,2X,AF0.3 / ) BLADEZZI 

2130 FORMAT ( 37X,5HPRES. , 1X,AF0. 3,2X,AF8. 3 / ) BLADE22! 


21 AO FORMAT ( 1H1 ///// A1X.51H##* OUTPUT THAT CAN BE PUNCHED FOR TSONICBLADE22< 

1 INPUT *## /////51X,10(3H###)/51X,1H#,28X,1H#/ 51X, 1H#,6X,5HCH0RD,BLADE22! 

2 6X,AHSTGR » 7X> 1H# / 51X, IH#»7X,3H( L) »7X»5H( RAO ) ,6X» 1H# / 51X.IH#, BLADE22< 

3 20X,1H# / 51X,1H#,2X,F10.5,F11.6,5X,1M# / 51X, 1H# ,20X, 1 H** / 15X, BLADE22* 
A 103(1H#) / 15X,1H#,2(50X,1H*) / 1 5X, 1H#1 AX,23H### SUCTION SURFACEBLADEZ2J 

5 ##H,13X,1H#,13X,2AH### PRESSURE SURFACE «»♦»»» 1 3X , 1 H** / 15X,1H#,2( BLADEZ2 1 

6 BOX* 111#) / 15X,1H*,8X,3A(1H*),eX,1H#,0X,3AMH#),0X,1H# / 15X, 1H#,0LADE23< 

7 2C SOX, 1HW ) / 15X,2( IH#,0X,2HRI ,9X,2HRO,6X,AHBETI , 7X,AHDETO,6X) , BLADE23 

8 1HM / 15X,2UH#,7X,3H(L),0X,3H(L),7X,5H(DEG),6X,5H(DEG),6X),1H* /BLADE23 

9 15X>1H#>Z150X>1H#) / 15X>1H#,ZUX,ZF1t.5>ZF11 .A,5X,1HM / 15X> 1H#DLA0EZ3 
. ,2(50X, 1H* ) / 15X, 1H*,2( 50X, 1H# ) / 15X, 1H*, 2( 15X.AHZMSP, 1 2X,AHTHSPDLADE23 


1 • 15X, IH* ) / 15X,1H#,2( t6X,3H(L),I2X,5H(RAD),tAX,tH") / 15X.1H*, BLA0EZ35 

2 2(50X,1H#1 ) BLAOEZ36 

2150 FORMAT M5X, 1H#.2( 9X.F1 1 .5,6X,F11 .6, 1 3X, IH# ) ) BLADE237 

2160 FORMAT ( 15X, 1H#,2t5QX, IN# )/ 15X,103UK#) ) BLAOEZ33 

END BLADEZ39 

SUBROUTINE CONIC! CHORD) CONIC 2 

C ### THIS IS THE MAIN BLADE ELEMENT LAYOUT ROUTINE. BLADE ELEMENTSCONIC 3 
C ### ARE LAID OUT ON A CONE SUCH THAT THE CIRCULAR ARC CHARACTERISTIC CONIC A 
C ### OF CONSTANT RATE OF ANGLE CHANGE WITH PATH DISTANCE IS MAINTAINED .CONIC 5 
REAL KIC, KIP, KIS, KM, KOC, KOP, KOS, KTC, KTP, KTS CONIC 6 

COMMON /SCALR/ CONIC 7 

1 BLADES, CALP, CCC, CEPE, CKTC, CKTS, Cl, C2, DRCE, DRCLEP, DRCLESCONIC 0 

2, DRCMST , DRCMT , DRCOI, DRCS, DRCT , DRCTEP, DRCTES, DRCTI, DRCTMP, CONIC 9 

3 DRCTMS, DRCTPI , DRCTSI, DSME , DSMT, DSOT, DSP, DSP1 , DSP2, DSSE, CONIC 10 

A D5S1 , DSS2, DST , DSTI, EMT, IR, IW, KIC, KIP, KIS, KM, KOC, KOP, CONIC 11 

5 KOS, KTC, KTP, KTS, PI, RCI, RCMS, RCO, RCT , RCTP, RCTS, REE, CONIC 12 

6 RELEP, RELES, REM, REMS, REMT , REOI, RES, RET, RETEP, RETES, ^RETICONIC 13 

7, RETMP, RETMS, RETP, RETS, R1C, SGAM, SALP, SKTC, SKTS, TEPE, CONIC 1A 

8 THMAX, TKTN CONIC 15 

COMMON /INPUTS/ CONIC 16 

1 ALP, KICR , KOCR , NB, P, R, SOLID, T, THLE, THTE, TMX, ZM CONIC 17 

C ### ESTABLISH BLADE ELEMENT CENTERLINE TO SATISFY CAMBER, CHORD CONIC 18 

C ### AND TRANSITION POINT REQUIREMENTS. CONIC 19 

PI2 5 PI/2.0 CONIC 20 

CGAM= SQRTU.O - SGAM##2) CONIC 21 

ICONV 5 0 CONIC 22 

DKAPPA = KIC - KOC CONIC 23 

ICL 5 1 CONIC 2A 

DK2 5 DKAPPA/U.Q ♦ P#C1/C2) CONIC 25 

10 CHORD = 2 . 0*PI*R*SOLID/( BLADES - PI#SOLIO#CGAM*SALP ) CONIC 26 

R1C = R/CHORD CONIC 27 

CCHORD = CALPKCHORD CONIC 28 

IF (ICL.GT.1) GO TO 15 CONIC 29 

EPS 5 CCC#SGAM#SALP/(R1C ♦ (THLE ♦ CCC#CGAM)#SALP ) CONIC 30 

DPHI 5 DKAPPA - EPS CONIC 31 

DPHIA = DPHI/A.O CONIC 32 

QPHIKS = OPHI*OPHIA CONIC 33 

DSOI = CCC/U.O - DPHIHS/6.0#(1.0 - DPHIHS/20.0)) CONIC 3A 

DSTI 5 C1/CCCHDS0I CONIC 35 

DSOT 5 DSOI - OSTI CONIC 36 

15 IF ( ABS( SALP/R 1 C ) . LT . I . OE-O0 ) GO TO 20 CONIC 37 

RCI= R1C/SALP + THLE CONIC 38 

GO TO 30 CONIC 39 

20 RCI= 1.0E+08 CONIC AO 

30 DK1 5 DKAPPA - DK2 CONIC A1 

CALL EPSL0N(KIC,-DK1 , RCI, DSTI, DRCTI, RETI) CONIC A2 

KTC 5 KIC - DK1 CONIC A3 

RCT= RCI ♦ DRCTI CONIC AA 

35 CALL EPSLON(KTC,-DK2, RCT, DSOT, DRCOT, REOT) CONIC AS 

RCO= RCT ♦ DRCOT CONIC A6 

REOI 5 RCO/RCTKRETI + REOT CONIC A7 

DRCOI 5 DRCTI ♦ DRCOT CONIC A8 

CALL TANKAPt RCI, DRCOI, REOI, TANCCO) CONIC A9 

TGBL 5 (TANCCO + TEPE )/( 1.0 - TANCCO#TEPE ) CONIC 50 

CALL RPOINTfPCI, DRCTI, RETI, TGBL, DRCTP) CONIC 51 

SECGDL= SQRTU.O ♦ TGBL##2) CONIC 52 

DC1 5 DRCTP*SECGBL - Cl CONIC 53 

DC2 5 URCOI#5QRTU .0 ♦ TANCCO*»2 )*CEPE “ CCC CONIC 5A 

IF (ICL.GT.1 .AND. ABSl TGBL - TGBLD . IT . 1 . OE-OA ) GO TO 37 COMIC 55 

ICL 5 2 CONIC 56 
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I 


TGBLL = TGBL 

CGAM = t.O/SQRTU.O ♦ TGBL«M2) 

GO TO 30 
37 ICONV = 1 

3B IF (ABSfDCI ).LT,1.0E“04) GO TO 40 
0S1 = DSTI«0C1/(C1 ♦ DC! ) 

DSTI= OSTI - DSt 

OSOT= DSOT - DS0I#DC2/( CCC ♦ 0C2 ) ♦ DSt 

OSOI = OSTI + OSOT 

DK2 = DKAPPA/l 1 .0 ♦ PWDSTI/DSOT) 

IF ( ICONV. LT. 1 ) GO TO tO 
GO TO 30 

40 IF ( AB5( DC2 ) . LT . t . 0E-05 ) GO TO 50 
DSDT= OSOT - DS0I*DC2/( CCC ♦ DC2 ) 

OSOI = DSTI ♦ DSOT 

IF t ICONV. LT.t) GO TO JO 

GO TO 35 

C «*» CONIC COORDINATES OF THE MAXIMUM THICKNESS POINT 
50 5GAM=TGBL*CGAM 
ZMT = ZM - T 

IF ( ABS( ZMT ).GT.1 .0E-07) GO TO 120 
DRCMT= 0.0 
REMT= 0.0 
DK= 0.0 
DSMT =0.0 
0SME= DSTI 
ORCTMS =0.0 
RETMS =0.0 
DRCTMP =0.0 
RETMP =0.0 
GO TO 150 
120 HKTC= KTC/2.0 

SHKTC= HKTCHSRS(HKTC) 

SHKTCQ= SHKTC*#2 

SKTC= 2.0«SHKTC»SQRT(1.0 - SHKTCQ) 

IF (ABS(SKTC).LT.I .0E-O7) SKTC = 1.0E-07 

CKTC= 1.0 - 2.0«SHKTCQ 

TKTN= -CKTC/SKTC 

IF (ZMT. GT. 0.0) GO TO 130 

DSMT= DSTI«ZHT/C1 

DKD5= OKI /DSTI 

DSME= DSTI 

GO TO 140 

130 OSMT= DSOT*ZMT/C2 
DKDS = DK2/050T 
DSME= -DSOT 
140 DK= -DSMT*DKDS 

CALL EPSLONt KTC»DK»RCT >DSMT >DRCMT iREMT ) 

CALL RPOINTl RCT, DRCMT, REMT, TGBL, DRCMP ) 

ZMTCAL= DRCMP>*SECGBL 

IF ( ABS( ZMTCAL - ZMT ) . LT. 1 .SE-05 ) GO TO 150 
DSMT = DSMT*ZMT/ZMTCAL 
GO TO 140 

150 RCM= RCT ♦ DRCMT 
KM= KTC ♦ DK 
HKM= KM/2.0 
SHKM= HKM"SRS(HKH) 

SHKM9= SHKM*«2 

CHKM= SQRTd.O - 5HKM9) 

SKM= 2 .O^SHKM^CHKM 


CONIC 57 CKM= 1.0 - 2.0*SHKMQ 

CONIC 50 DSME= DSME ♦ DSMT 

CONIC 57 C DEFINITION OF SUCTION SURFACE MAX. THICKNESS POINT 

CONIC 60 CALL EPSLON(KM*PI2,0.0,RCM,THMAX, DRCM, REM) 

CONIC 61 REMS = REM 

CONIC 62 RCHS= RCM ♦ DRCM 

CONIC 63 IF (ZMT.GT.1 .0E-07) GO TO 100 

CONIC 64 REMI = (1.0 ♦ DRCMT/RCT )#RETI ♦ REMT 

CONIC 65 C **«* DEFINITION OF SUCTION SURFACE CURVE FOR MAXIMUM THICKNESS 

CONIC 66 C ***» POINT ON OR AHEAD OF THE TRANSITION POINT 

CONIC 67 DK= 2 . 0*( THMAX - THLE J/DSME 

CONIC 60 KIS B KIC ♦ DK 

CONIC 69 KIP = KIC - DK 

CONIC 70 0RCIM= -DRCTI - DRCMT - DRCM 

CONIC 71 ENSI= REMI/RCM + REM/RCM5 

CONIC 72 CALL 5URF(KIS,KM, 5KM,CKM,RCI ,ORdM,THLE , EMSI ,0SSE ) 

CONIC 73 DRCLES = DRCE 

CONIC 74 RELES = REE 

CONIC 75 IF ( ABS( ZMT ) . LT. 1 . 0E-07 ) GO TO 160 

CONIC 76 ORCMST= DRCMT ♦ DRCM 

CONIC 77 EMT= REM/RCMS ♦ REMT/RCM 

CONIC 70 CALL TRAIN KIS , THLE ,TKMAX,KTS ,RCTS, RETS, OSS1 ) 

CONIC 79 DRCTMS = DRCS 

CONIC 00 RETMS B RES 

CONIC 01 DHKT= (KTC - KTSJ/2.0 

CONIC 02 DK= 2.0MDST - THTE - OSOT«OHKT )/( DSOT ♦ (DST - THTE J#0HKT ) 

CONIC 03 DRCOTS= ORCOT - ORCT 

CONIC 04 EM50= RET/RCTS - REOT/RCO 

CONIC 05 DRCTSI = DRCTI + DRCT 

CONIC 06 GO TO 1 70 

CONIC 07 160 RCTS= RCMS 

CONIC 00 KTS= KM 

CONIC 09 RETS = RCMSHEMSI 

CONIC 90 0S5I r -OSSE 

CONIC 91 SKTS= SKM 

CONIC 92 CKTS= CKM 

CONIC 93 DK= 2. 0#( THMAX - THTE )/DSOT 

CONIC 94 DRCOTS= ORCOT - DRCM 

CONIC 95 EMSO= REM/RCMS - REOT/RCO 

CONIC 96 DRCTSI = DRCTI ♦ DRCM 

CONIC 97 J70 KOS = KOC - OK 

CONIC 90 KOP = KOC ♦ DK 

CONIC 99 CALL SURF( KOS, KTS.SKTS ,CKTS,RCO,ORCOTS, THTE , EMSO.OSS2 ) 

CONIC 1 00 DRCTES = DRCE 

CONICI01 RETES = REE 

CONIC102 GO TO 190 

CONIC103 C DEFINITION OF SUCTION SURFACE CURVE FOR MAXIMUM THICKNESS 

CONIC 1 04 c *** POINT BEHIND THE TRANSITION POINT 

CONIC 1 05 180 OK= 2.0«(THMAX - THTE )/OSME 

C0NIC1Q6 KOS B KOC + DK 

CONIC107 KOP = KOC - DK 

CONIC 1 00 DRCOM= ORCOT - DRCMT - DRCM 

CONIC109 EMSO= REMT/RCM - REOT/RCO + REM/RCMS 

CONIC110 CALL SURF( KOS»KM,SKM,CKM»RCO»ORCOM,THTE > EMSOiDSSE ) 

CONIC 1 1 1 DRCTES = DRCE 

CON1C1 1 2 RETES = REE 

C0NIC113 DRCM5T= DRCMT + DRCM 

CONIC 1 1 4 EMT= REM/RCMS ♦ REMT/RCM 

CONIC115 CALL TRANJ KOS, THTE , THMAX, KTS,RCTS, RETS, DSS2 ) 

CONIC116 DRCTMS = OPCS 


CONIC 1 1 7 
COMIC1 18 

comet 1 9 
CONIC! 20 
CONIC 1 2 ( 
CONIC122 
CONIC! 23 
CONIC 124 
C0NIC125 
CONIC! 26 
CONIC! 27 
CONIC 120 
CONIC1 29 
CONIC! 30 
CONIC! 3! 
CONIC! 32 
CONIC 133 
COMIC! 34 
CONIC 135 
CONIC 136 
CONIC! 37 
CONIC! 39 
CONIC I 39 
CONIC140 
CONIC! 4 1 
C0NIC!42 
CONIC! 43 
CONIC!44 
C0NICI45 
COMIC! 46 
C0NIC!47 
CONIC!40 
CONIC149 
COMIC (50 
CONIC! 51 
CONIC! 52 
CONIC! 53 
CONIC! 54 
CONIC! 55 
CONIC156 
CONIC 157 
CONIC! 50 
CONIC! 59 
CONIC160 
CONIC! 61 
C0NIC162 
C0NIC163 
CONIC! 64 
CONIC! 65 
C0NIC166 
CONIC 167 
CONICI60 
CONIC 1 69 
COMIC! 70 
CONIC ! 71 
CONIC! 72 
CONIC! 73 
CONIC! 74 
CONIC175 
CONIC! 76 
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RETMS = RES 

DHKT= IKTS- KTO/2.0 

DK= 2.0MDST - TRUE - DSTI^DHKT )/! DSTI ♦ ! DST - THLE )*DHKT ) 

KIS = KIC ♦ DK 
KIP = KIC - DK 
DPCTSI = DRCTI ♦ DRCT 
EMSI= RETI/RCT + RET/RCTS 

CALL SURF! KIS, KTS»SKTS,CKTS» RCI»-DRCTSI ,THLE , EMSI > DSSE ) 

DRCLES = DRCE 
RELES = REE 
DSS1 = -DSSE 

C **» DEFINITION OF PRESSURE SURFACE MAXIMUM THICKNESS POINT 
190 CALL EPSLONl KM+PI2 ,0. 0 ,RCM,-THMAX,DRCM,REM) 

RCMS= RCM ♦ DRCM 

IF ( ZMT.GT , 1 . 0E-O7 ) GO TO 220 

C *** DEFINITION OF PRESSURE SURFACE CURVE FOR MAXIMUM THICKNESS 
C #«* POINT ON OR AHEAD OF THE TRANSTION POINT 
DRCIM= -DRCTI - DRCMT - DRCM 
EMSI= REMI/RCM ♦ REM/RCMS 

CALL SURF (KIP, KM, SKM » CKM, RCI >DRCIM» -THLE, EMSI , DSSE ) 

DRCLEP = DRCE 
RELEP = REE 

IF ( AOStZMTKLT.t .0E-07) GO TO 200 

DRCMST= DRCMT ♦ DRCM 

EMT = REM/RCMS ♦ REMT/RCM 

CALL TRAN(KIP,-THLE,-THMAX,KTP»RCTP,RETP,DSP1 ) 

DRCTMP = DRCS 
RETMP = RES 
DRCOTS= DRCOT - DRCT 
EMSO = RET/RCTP - REOT/RCO 
DRCTPI = DRCTI ♦ DRCT 
GO TO 210 
200 RCTP = RCMS 
KTP= KM 

RETP= RCMS N EMSI 
OSP1 = -DSSE 
DRCOTS= DRCOT - DRCM 
EMSO = REM/RCMS - REOT/RCO 
DRCTPI = DRCTI ♦ DRCM 

210 CALL SURF! KOP, KTP»5KTS,CKT5> RCO,DRCOTS, -THTE, EMSO, DSP2 ) 

ORCTEP = DRCE 
RETEP = REE 
GO TO 230 

C (CNN DEFINITION OF PRESSURE SURFACE CURVE FOR THE MAXIMUM 

C THICKNESS POINT BEHIND THE TRANSITION POINT 
220 DRCOM= DRCOT - DRCMT - DRCM 

EMSO = REMT/RCM - REOT/RCO ♦ REM/RCMS 

CALL SURF ( KOP , KM > SKM , CKM , RCO , DRCOM » -THTE , EMSO > DSSE ) 

ORCTEP = DRCE 

RETEP = REE 

DRCMST= DRCMT ♦ DRCM 

EMT = REM/RCMS ♦ REMT/RCM 

• CALL Tf?AN( KOP > -THTE » -THMAXi KTP» RCTP >RETP>DSP2 ) 

DRCTMP = DPCS 

RETMP = RES 

DPCTPX = DRCTI ♦ DRCT 

EMSI B RETI/RCT ♦ RET/RCTP 

CALL SURF( KIP, KTP,SKTS,CKTS,RCI , -DRCTPI, -THLE, EMSI, DSSE) 

DRCLEP □ DRCE 
RELEP = REE 


CONIC1 77 
CONIC 178 
CONIC1 79 
CDNIC1 80 
CONIC 181 
CONIC l 82 
C0NIC183 
CONIC1 84 
CONIC 185 
CONIC186 
CONIC187 
CONIC 108 
C0NIC189 
CONIC190 
CONIC 191 
C0NIC192 
CONIC193 

comcm 

CONIC 195 
CONIC 196 
CONIC1 97 
CONICt 98 
CONIC 199 
CONIC200 
CONIC201 
CONIC202 
CONIC203 
CONIC204 
CONIC205 
CONIC206 
CONIC207 
C0NIC208 
CONIC209 
CQNIC21Q 
CONIC211 
CONIC21 2 
CONIC21 3 
C0N1C214 
CONICS 15 
CONIC216 
CONIC21 7 
CONIC218 
CONIC21 9 
CONIC220 
CONIC221 
CONIC222 
CON1C223 
CONIC224 
CONIC225 
CONIC226 
CONIC227 
CONIC228 
CONIC229 
CONIC230 
CONIC231 
CONIC232 
CONIC233 
CONIC234 
CONICC35 
CONIC236 


' 

i 


DSP1 = -OSSE 
0 OSS = DSS1 + DSS2 
DSP = DSPI + DSP2 
DKE = KIS - KIC 
IF IDKE.GT.O.D) GO TO 240 
WRITE (IN, 2000) 

0 IF MKOS - KOO.LE.O.O) GO TO 250 
WRITE (IN, 2010) 

0 RETURN 

0 FORMAT (//// 30X,73H»* NOTE THAT THE ELEMENT 
1NG FROM THE LEADING EDGE ) 

0 FORMAT <//// 23X,e6HK* NOTE THAT THE ELEMENT 
ENG AS THE TRAILING EDGE IS APPROACHEO #*> 

END 

SUBROUTINE EPLOT 

DIMENSION XI 26 ) ,T1 26 ) » ST RING 1 1 32 ) 
CONMON/BLANK/ 

1 THSP1 (13), THSP2M3), ZMSP1M3), ZMSP2<13>, 

2 BET02, CHORD, RI, RO, STGR 
EQUIVALENCE <X< 1 ),ZM5P1( 1 ) ),(Y( 1 ),THSP1( 1 ) ) 
DATA STRING/1 32# 1H /, BLANK/ IN /, PLUS/1HV 
WPITE1 6 , 900 ) 

" FIND X RANGE 
XR=0.0 

DO 10 1=1,26 

0 IF (X(I> .GT. XR) XR=X(I) 

* ARRANGE POINTS IN ORDER OF DECREASING Y 
0 IEX=0 

DO 30 1=1,25 

IF ( Y( I ) .GE. Y(I + 1 ) ) GO TO 30 
TEMP=X( I ) 

X(I)=X(I + 1 ) 

Xt 1+1 )=TEMP 
TEMP=Y( I ) 

Y( I )=Y( 1+ 1 ) 

Y(I+1 )=TEMP 
IEX=1 

0 CONTINUE 

IF (IEX . EQ» I) GO TO 20 

* FIND Y RANGE, X AND Y INCREMENTS 
YR=YU)-Y(26) 

* NOTE « 0.1 IN/CHARACTER, 0. 167IN/LINE, SO 79.2 
NY=0 .5*79. 2*YR/XR 

DY=YR/l FLOAT! NY )-1 .0) 

DX=XR/131 .0 

* PLOT POINTS 
IYO=0 

DO 50 1=1 ,26 

IY= 1 ,5MY( 1 )-Y( I ) )/DY 

NFEED=IY-IYO 

IYO=IY 

IF ( NFEED .EQ, 0) GO TO 45 
DO 40 IFEED=1 , NFEED 
0 WRITE! 6, 1 000 ) 

5 IX=1.5»X(I)/DX 
STRING! IX >"PLUS 
WPITE! 6 ,1010) STRING 
STRING! IX )=BLANK 
0 CONTINUE 
RETURN 


0ETI1 , BETI2 , BET01 » 


= 0.6*132.0 
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) 

1 


EPLOT 48 
EPLOT 49 
EPLOT 50 
EPLOT 51 
EPLOT 52 
EPS LON 2 


900 FORMAT MH1//40X, EPLOT 48 

154H**»* PLOT OF BLADE SURFACE IN THETA - M COORDINATES ***/////) EPLOT 49 
1000 FORMAT (1H ) EPLOT 50 

1010 FORMAT UH+.132AU EPLOT 51 

END EPLOT 52 

SUBROUTINE EPSLONt KO,DK *RO , D3 , DR , RE ) EPSLON 2 

C CALCULATION OF CONIC RADIAL AND CIRCUMFERENTIAL COMPONENTS OFEPSLON 3 

C *** A BLADE ELEMENT SEGMENT WITH GIVEN PATH DISTANCE AND END ANGLES EPSLON 4 

REAL KO EPSLON 5 

• IF ( ABSt DS ) . LT . 1 , 0E-08 ) GO TO 70 EPSLON 6 

HDK= 0K/2.0 EPSLON 7 

IF (ABS(HOK).GT. 0.78539816) GO TO 2 EPSLON 8 

SR= SRS(HDK) EPSLON 9 

SHDK= HDK*»SR EP5LONIO 

SH0KQ= SHDK**2 EP5L0N1 1 

CHDK- SQRTM.O - SHDKQ) EPSLONt 2 

GO TO 6 EPSLON1 3 

2 IF (HOK.LT.O.O) GO TO 3 EPSLON14 

HDK = 1.5707963 - HOK EPS10N15 


CHDK = HDK*SRS(HDK ) 

SHDKQ = 1.0 - CHDK**2 
SHDK = SQRTt SHDKQ) 

GO TO 4 

3 HDK = 1.5707963 ♦ HDK 
CHDK = HDK*SR5(HDK ) 

SHDKQ =1.0- CHDK**2 
SHDK = -SQRTtSHOKQI 

4 SR = ABSt SHDK )/HDK 

6 HKQ = KO/2.0 

IF tHKO.GT. 0.78539816) GO TO 7 
SHKO= HKO"SRS(HKO) 

SHKOQ= SHKO«*2 

CHKO= SQRTU.O - SHKOQ) 

SKO= 2 . 0#SHKOHCHKO 
CKO= 1.0 - 2 . 0&SHKOQ 
GO TO 8 

7 HKO = 0.78539816 - HKO 
SHKO = HKO"SRS(HKO) 

SHKOQ = SHKO**2 

CHKO = SQRTM.O - SHKOQ) 

SKO = 1.0 - 2.0"5HKOQ 
CKO = 2.0*SHKO«CHKO 
6 SKA = SHDKMCKO + SKO"CHDK 
CKA= CHDK*CKO - SK0"SHDK 

CONIC RADIAL COMPONENT OF THE PATH 
OR= 0S«CKA*SR 

IF (ABStOKKGT, 0,00001 ) GO TO 10 
DRR = DR/RO 

IF t ABSt DRR ) . LT . 0 . 0 1 ) GO TO 9 


RE = IRO ♦ DR )*5KA/CKA#ALOG( 1 .0 ♦ DRR) 
RETURN 

9 RE s (1.0 • DRR )#DS#SR*5KA#( l .0 - DRR*' 
X /4.0>M 
RETURN 
10 RS= RO/OS 

IF (ABS(RS).GT. 10000.0) GO TO 60 

IF t RS**2/AB5l OK ) . GT . 1 .7E *09 ) GO TO 60 


DRRM0.5 - DRRM 0.33333333 


QDKS= HDK#*2/4.0 EPSL0N57 

SES = 0.66666667*RCK#QDKS#( 1 . 0 - 0.6*QDKS»M , 0 - 0. 15873016"QDKS* EP5LON53 
X (1.0 - 0.077777778*QDKSM 1 .0 - 0 . 046753247#QDKSM 1 . 0 - . 031 339031 EPSLON59 
X «QDK3 ))>)) EPSL0N60 

DRR= DR/RO EPSL0N6 1 

IF ( ABSt DRR ) .GT . 0 , 21 ) GO TO 20 EP5LON62 

RRM = 0 . 5#DRR#( 1 . 0 - 0 . 25»*DRR*( 1 .0 - 0 . 5*DRR*( 1 . 0 - 0.625#DRRM 1 .0EPSL0H63 
X - 0.7H0RRM 1 .0 - 0 . 75#DRR*( 1 . 0 - 0 . 70571 429*DRR*M . 0 - 0 .81 25*DRREP5L0N64 


EPSLON 6 
EPSLON 7 
EPSLON 8 
EPSLON 9 
EPSLONt 0 
EP5L0N1 1 
EPSLONt 2 
EPSLON1 3 
EPSLON14 
EPSLONt 5 
EPSLON16 
EPSLON1 7 
EPSLONt 8 
EPSL0N1 9 
EPSLON20 
EPSLON21 
EPSLON22 
EPSL0N23 
EPSL0N24 
EPSL0N25 
EPSL0N26 
EPSL0N27 
EPSL0N28 
EP5LON29 
EP5L0N30 
EPSLON31 
EPSLON32 
EPSL0N33 
EPSL0N34 
EPSLON35 
EPSLQN36 
EPSLON37 
EPSL0N38 
EPSLON39 
EPSLON40 
EPSLON41 
EPSLON42 
EPSLON43 
EPSL0N44 
EPSLON45 


X «( 1 .0 - 0 . 83333333*DRR )))))))) 

RRQ = RRM ♦ 1.0 
GO TO 30 

20 RRQ= SQRTM.O ♦ DRR) 

RRM= RRQ - 1.0 
30 RM= RRQKRS 

0 = RCMCHDK ♦ SKA ♦ DK*»RM 
XS= SH0KQM1.0 -RCK**Z)/D**Z 
XSN= 35. 0*ABS( XS ) 

NXS= XSN 
N= 5 ♦ NXS 
SXS= O.o 
XPS= 1.0 
DKN= 1.0 
DO 40 KN=1,N 

IF (ABS(XPS).LT. 1 . 0E-I2 . AND.KN.NE. I ) GO TO 50 
XP5= XPSHXS 
DKN= DKN * 2.0 
40 SXS= SXS ♦ XPS/DKN 

50 RE- (RO ♦ 0R)*(DK*(SK0 ♦ SKA ♦ 0K*RS#RRM - SES) 
X SXSJ/D 
RETURN 


4.0*RCK*SHDK* 


EPSLON65 

EPSL0N66 

EPSL0N67 

EPSL0N68 

EPSLON69 

EPSLON70 

EPSLON71 

EPSL0N72 

EPSLON73 

EPSL0N74 

EPSLON75 

EPSLON76 

EPSL0N77 

EPSL0N78 

EPSL0N79 

EPSLON80 

EPSLON81 

EPSLON82 

EPSL0N03 

EPSL0N84 

EPSL0N85 

EPSL0N86 


CONIC CIRCUMFERENTIAL COMPONENT WHEN PATH DISTANCE IS A VERY EP5L0N87 


CIRCUMFERENTIAL COMP. WHEN PATH ANGLE IS ESSENTIALLY C0NSTANTEPSL0N46 


EPSL0N47 

EPSLON48 

DRREPSLON49 

EPSLON50 

EPSLON51 

EP5LON52 

EPSL0N53 

EPSLON54 


CONIC CIRCUMFERENTIAL COMPONENT OF PATH BY GENERAL EQUATION EPSLON55 
RCK= RS'DK - SKO EP5LON56 


C SMALL FRACTION OF THE DISTANCE TO THE CONE VERTEX. EPSLCN83 

60 DRR= DR/RO EPSL0N09 

RE = M.O ♦ DRRJ/M.O • 0.5*QRRM1.0 - 0 , 25*DRRM 1 . 0 - 0.5**DRR* EPSLON90 
X ( 1.0 - 0 . 625*DRR ) ) ) )#DS*SKA*SR EPSLON91 

RETURN EPSION92 

70 DR = 0.0 EPSLON93 

RE □ 0.0 EPSLON94 

RETURN EPSL0N95 

END EPSLON96 

SUBROUTINE RPDINTt RO ,DR ,RE , TK ,DRP ) RPOINT 2 

C flfttt THIS SUBROUTINE CALCULATES THE CONIC RADIAL COORDINATE AT THERPOINT 3 

C INTERSECTION OF PERPENDICULAR CONSTANT ANGLE LINES FROM TWO KNOWN RPOINT 4 
C *** POINTS ON A CONE. THE LINE THROUGH THE REFERENCE POINT HAS THE RPOINT 5 

C *** INPUT SLOPE TK. RPOINT 6 

R = OR/RO RPOINT 7 

CK = SQRTM.O/M.O ♦ TK*#2)) RPOINT 8 

SK = TK*CK RPOINT 9 

IF ( ABStR ) . LT.0.01 ) GO TO 20 RPOINTIO 

ORP = ROM EXPt (R£#SK/(RO ♦ DR ) + ALOGtl.O + R )»CK )«CK ) - 1.0) RPOINT11 
RETURN RPOINTI 2 

20 C = (RE*SK/(RO ♦ DR) ♦ RM1.0 - 0.5«R«(1.0 - 0 .66666667*R*M . 0 - RPOINT13 

X Q.75*R)))»CK)*CK RPOINT 1 4 

ORP = C RPOINTI 5 

30 CS = ORPM1.0 - 0.5*0RP*M .0 - 0 .66666667*DRPM 1 . 0 - 0.75«DRP)1) RP0INT16 
IF ( ABSt ( CS - C)/C).LT.t .0E-06) GO TO 40 RPOINTI 7 

ORP = DRP»C/CS RPOINTI 8 

GO TO 30 RFOINTI 9 

40 DRP = DRP#RO RPOINT20 

RETURN RPOINT21 


RPOINT 6 
RPOINT 7 
RPOINT 8 
RPOINT 9 
RPOINTIO 
RPOINTI 1 
RPOINTI 2 


RPOINTI 5 
RPOINTI 6 
RPOINTI 7 
RPOINTI 8 
RFOINTI 9 
RPOINT20 
RPOINT21 
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END RP0INT22 

FUNCTION SRS(ANG) SRS 2 

C www SERIES FOR t SIN( ANG ) J/ANG WHEN THE MAGNITUDE OF AHG IS LESS SRS 3 

C www THAN PI/4 SRS 4 

IF (ABS(ANG).LT. 1 .0E-05) GO TO 10 SRS 5 

AQ = ANG##2 SRS 6 

SRS = 1.0 - AQ/6 .0*1 1 . 0 - AQ/20 . 0#( 1 . 0 - AQ/42.0«t1.0 - AQ/72 . 0 ) ) )SRS 7 
RETURN SRS 8 

10 SRS = 1.0 SRS 9 

RETURN SRS 10 

END SRS 11 

SUBROUTINE SURF( KE »KMM» 5Krt»CKM*RO,DRC> TE , EMS* DSS ) SURF 2 

C WWW THIS SUBROUTINE CALCULATES THE BLADE ELEMENT SURFACE CURVE SURF 3 

C WWW END POINT COORDINATES. THE SURFACE CURVE IS NORMAL TO THE END SURF 4 
C w»w POINT THICKNESS PATH AND TANGENT TO A SURFACE REFERENCE POINT SURF 5 
C WWW WHICH IS EITHER THE TRANSITION OR MAXIMUM THICKNESS POINT. SURF 6 

REAL KE, KE1, KIC, KIP, KIS, KM, KMM , KOC, KOP, KOS, KTC , KTP , KTSSURF 7 
COMMON /SCALR/ SURF 8 

1 BLADES, CALP, CCC, CEPE, CKTC, CKTS, Cl, C2, DRCE, DRCLEP, DRCLESSURF 9 
2, DRCMST , DRCMT , DRCOI, DRCS, DRCT , DRCTEP, DRCTES, DRCTI , DRCTMP, SURF 10 

3 DRCTMS, DRCTPI , DRCTSI, DSME , DSMT , DSOT, DSP, DSP1 , D5P2, DS5E , SURF 11 

4 DSS1, DSS2, DST , DSTI, EMT, IR, IN, KIC, KIP, KIS, KM, KOC, KOP, SURF 12 

5 KOS, KTC, KTP, KT5, PI, RCI, RCMS, RCO, RCT , RCTP, RCTS, REE, SURF 13 

6 RELEP, RELES, REM, REMS, REMT , REOI, RES, RET, RETEP, RETES, RETISURF 14 

7, RETMP, RETMS , RETP, RETS, R1C, SGAM, SALP, SKTC, SKTS, TEPE, SURF 15 
8 THMAX, TKTN SURF 16 

RMS = RO - ORC SURF 17 

IT = I SURF 18 

10 CALL EPSLONtKE ♦ 1 , 5707963, 0 . 0 ,RO,TE ,DRCE ,REE ) SURF 19 

ORCS = ORC + DRCE SURF 20 

OK = KE - KMM SURF 21 

HOK = OK/2 . 0 SURF 22 

SR = SRS(HDK) SURF 23 

SHDK = HOKWSR SURF 24 

CHOK = SQRTM.O - SHDK*w2 ) SURF £5 

OSS = DRCS/I SRW( CHDKwCKM - SHDKwSKM ) ) SURF 26 

CALL EPSLONtKMM.DK, RMS, DSS, DRCS, RES) SURF 27 

DRE = (RO ♦ DRCE)*EM5 * RES - REE SURF 28 

IF (ABS(ORE).LT. I .OE-05) RETURN SURF 29 

IF (IT.EQ.2) GO TO 20 SURF 30 

KE1 = KE SURF 31 

ORE 1 = DRE SURF 32 

KE = KE - 2 . 0#DPEw( CKM*( 1 . 0 - 2 . 0 WSHDK*W 2 ) -2 . 0*5KM*SHDKwCHDK >/DSS SURF 33 
IT = 2 SURF 34 

GO TO 10 SURF 35 

20 KE = KE * ( KE1 - KE >*DRE/( DRE - DRE1 ) SURF 36 

GO TO 10 SURF 37 

END SURF 38 

SUBROUTINE TANKAPl RO, DR , RE , TK ) TANKAP 2 

C www CALCULATION OF THE SLOPE OF THE CONSTANT ANGLE PATH BETWEEN TANKAP 3 

C www TWO POINTS IN CONIC RADIUS AND EPSILON COORDINATES TANKAP 4 

R = DR/RO TANKAP 5 

IF (ABSIR).LT.O.U GO TO 20 TANKAP 6 

TK = RE/URO * ORJWALOGM.O ♦ R ) > TANKAP 7 

RETURN TANKAP 8 

20 SUM □ 1 .0 TANKAP 9 

IF (ABS(R).GT.I .0E-08) GO TO 25 TANKAP 1 0 

IF ( ABS1 DR/RE ) . GT . 1 . OE-O0 ) GO TO 35 TANKAPl 1 

TK = I.0E+08 TANK API 2 

RETURN TANKAP I 3 


25 PROD =1.0 TANK API 4 

DN = 8.0/1 -ALOGtO(ABSIRi)) TANKAP 1 5 

NT = DN TANKAP 16 

DO 30 1 = 1 ,NT TANK API 7 

N = I + 1 TANKAPl B 

DN = N TANKAPl 9 

PROD = -PROD#R TANKAP20 

30 SUM = SUM ♦ PROD/DN TANKAPC1 

35 TK = RE/URO ♦ DRMRwsUM) TANKAP22 

RETURN TANKAP23 

END TANKAP 2 4 

SUBROUTINE TRAN( KE , TE ,TM , KT.RT ,RE ,DS ) TRAN 2 

C *«w THIS SUBROUTINE CALCULATES THE BLADE ELEMENT SURFACE CURVE TRAN 3 

C www TRANSITION POINT COORDINATES FROM THE INTERSECTION OF THE TRAN 4 

C www ESTABLISHED SUPFACE CURVE OVER THE MAXIMUM THICKNESS POINT WITH A TRAN 5 
C www PATH PERPENDICULAR TO THE CENTERLINE AT THE TRANSITION POINT. TRAN 6 

REAL KE, KIC, KIP, KIS, KM, KOC, KOP, KOS, KT, KTC, KTP, KTS TRAN 7 

COMMON /SCALR/ TRAN 8 

1 BLADES, CALP, CCC, CEPE, CKTC, CKTS, Cl, C2, DRCE, DRCLEP, DRCLESTRAN 9 
2, DRCMST, DRCMT, DRCOI, DRCS, DRCT, DRCTEP, DRCTES, DRCTI, DRCTMP, TRAN 10 

3 DRCTMS, DRCTPI, DRCTSI, DSME, DSMT, DSOT, OSP, DSP1 , DSP2 , DS5E , TRAN 11 

4 DSS1 , DSS2 , DST, DSTI, EMT, IR, IW, KIC, KIP, KIS, KM, KOC, KOP, TRAN 12 

5 KOS, KTC, KTP, KTS, PI, RCI, RCMS, RCO, RCT, RCTP, RCTS, REE, TRAN 13 

6 RELEP, RELES, REM, REMS, REMT, REOI, RES, RET, RETEP, RETES, RETITRAN 14 

7, RETMP, RETMS, RETP, RETS, R 1 C , SGAM, SALP, SKTC, SKTS, TEPE, TRAN 15 
8 THMAX, TKTN TRAN 16 

DST = TM - (TM - TE)w(DSMT/DSME)»w2 TRAN 17 

OSS = DST«( KM - KTC I - DSMT TRAN 18 

CS = IKE - KMJ/DSSE TRAN 19 

10 DK = CS«D5S TRAN 20 

CALL EPSLONtKM, OK, RCMS, DSS, DRCS, RES) TRAN 21 

DRCT = DRCMST ♦ DRCS TRAN 22 

RT = RCMS ♦ DRCS TRAN 23 

RET = RES + RT*EMT TRAN £4 

CALL TANKAPl RCT, DRCT, RET, TK) TRAN £5 

TKD = (TK - TKTN )/( 1.0 ♦ TKwTKTN) TRAN £6 

IF ( ABSI DSTWTKD ) . LT. 1 .OE-05) GO TO 20 TRAN 27 

DST □ RET/1 CKTC - 5KTCWTKD ) TRAN 28 

DSS = DSS ♦ DSTwtkdwSQRTM .0 + TKD«#2)/(1.0 -t DK +KM -KTC )ww2/2 .0 1TRAN 29 
GO TO 10 TRAN 30 

20 KT = KM + DK TRAN 31 

RE = RT*RETI/RCT + RET TRAN 32 

DS = DSS - DSSE TRAN 33 

IF IDSSE.GT.0. 0 ) DS = -DS TRAN 34 

HKTS = KT/2.0 TRAN 35 

SHKTS = HKTS*SRS( HKTS ) TRAN 36 

SHKTSQ = SHKTSw » 2 TRAN 37 

CHKT5 = SQRTM.O - SHKTSQ) TRAN 38 

SKTS = 2.0-SHKTSwCHKTS TRAN 39 

CKTS = 1.0 - 2.0WSHKTSQ TRAN 40 

RETURN TRAN 41 

END TRAN 42 
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FUNCTION YPC( DR pRE * EP I YPC 

C *** Y PLOT COORDINATE FROM R AND EPSILON COORDINATES YPC 

YPC = DR - RE«EP/2 . 0#( t . 0 - EP**2/1 2 . 0»( 1 . 0 - EP**2/30 . 0 ) ) YPC 

RETURN YPC 

END YPC 

SUBROUTINE COPES( IFLAG) COPES 

C M*»»»»*«^>*»»**»***«**»«*f«»«*M»w**ww*»»*n**» > *»^*t»»***»«*»*»»****»**»4»*»w^»*»*n***»»*C0PE5 

C COPES - CONTROL PROGRAM FOR ENGINEERING SYNTHESIS. COPES 

C *#«»*#W*W*««**>*K«l»*«IM*«*******W**K******«****K**MW#W»***K*"****»COPES 

COMMON /CNMN1/ OELFUN ,0 ABF UN ,FOCH , FDCHM ,CT ,CTMIN ,CTL , CUMIN , ALPH AXCOPES 
1 »AB0BJ1 .THETA, OBJ, NOV, NC0N.N5IDE , IPRINT .NFDG.NSCAL , LINOBJ , ITMAX , ITCOrES 
2RM, ICNDIR , IGOTO ,NAC , INFO , INFOG , ITER COPES 

COMMON /COPESt/ TITLE(20) COPES 

COMMON /C0PES2/ RA( 5000 ),IA( 1 000 ) COPES 

COMMON /COPES3/ SGNOPT ,NCALC»IOBJ,NSV»NSOBJ ,NCONA»N2VX,M2VX»N2VY .MCDPES 
1 2VY ,N2VAR, IPSENS, IP2VAR , IPDBG .NACMX1 , NDVTOT , L0CR( 25 ) » LOCH 25 ) , ISCRCOPES 
21 » ISCR2 »NXAPRX,NP5,NPFS,NPA»NF , INOM, IPAPRX,KMIN,KMAX»XFACT1 ,XFACT2COPES 


OCT., 1974. 
CALIF. 


NEAR, INC REVISION, JULY, 1982 

- COPES CHANGED TO A SUBROUTINE CONTROLLED BY TSOPT DRIVER 

- CONTROL PARAMETER IFLAG ADDED 

I FLAG = 1, EXECUTE COPES FROM BEGINNING, READING ALL INPUT 
IFLAG = 2, SKIP INPUT AND INITIALIZATION 


NAN2=0 

NAN3=0 

IF ( IFLAG. EQ. 2 ) GO TO 15 

DIMENSIONS OF ARRAYS ARRAY, RA AND IA. 

NARRAY=1 500 
NDRA=5000 
NDIA= 1 000 

READ GENERAL SYNTHESIS CONTROL INPUT. 

SCRATCH TAPE NUMBERS. 

ISCR1 =20 
I5CR2=40 

CALL COPEOI { RA »IA»NDRA,NDIA ) 

IF ( NCALC.LT . 0 .OR .MCA LC . GT.6 ) GO TO 340 

CHECK TO INSURE STORAGE REQUIREMENTS DO NOT EXCEED 

DIMENSIONED SIZES OF ARRAYS RA AND IA. 

NDRA1 =LOCR( 25 ) 

N0IA1 =LOCI( 25 ) 

IF tNDRAI .LE. NORA. AND. NDIA1 .LE.NDIA) GO TO 10 
WRITE (6,360) NDRA.NDRA1 ,N0IA,NDIA1 


IF ABS(XII) J.GT.O OVER-RIDE USER INPUT OF DECISION VARIABLES FOR 
OPTIMIZATION. 

DO 40 1=1 >NDV 
XX=ABS( RA( I ) ) 

OVER-RIDE ANALIZ INPUT. 

U5 = LOCR( 5 ) 

M2 = LOCK 2 ) 

DO 20 J=1 .NDVTOT 
NN1 =IA( M2 ) 

M2=M2 f 1 

IF (NM1 .NE.I) GO TO 20 
NN1 =IA( J ) 

IF (XX.LT.1 . OE - 1 0 ) GO TO 30 
ARRAY ( NN1 )=RA( I )*RAl N5 ) 

N5=N5+1 
GO TO 40 

RA( I )=ARRAY(NN1 )/RA(N5) 

CONTINUE 

TRANSFER DESIGN VARIABLES TO ARRAY. 

M2 = LOCI ( 2 > 

N5=LOCR( 5 ) 

DO 50 1=1 , NDVTOT 
N=IA( M2 ) 

M=IA( I ) 

ARRAYl M )=RA(N )#RA( N5 ) 

N5=N5 f 1 
M2=M2+1 
CONTINUE 

IF ( NCALC .NE . 3. AND.NCALC .NE .5 ) GO TO 80 

TRANSFER NOMINAL VALUES OF SENSITIVITY VARIABLES TO ARRAY. 

Ml 6 = L0CI ( 1 6 ) 

Ml 7=L0CI( 1 7 ) 

N15=LOCR( 15) 

DO 70 1=1 »NSV 
NN = IA( Ml 6 ) 

Ml 6=M1 6 + 1 
ARRAY(NN)=RA(N15) 

N1 5 = N1 5 + 1 A( Ml 7 ) 

Ml 7=M1 7 * 1 
CONTINUE 

IF (NCALC.LT. 6) GO TO 290 

INITIALIZATION FOR APPROXIMATE ANALYSIS/OPTIMIZATION 


COrES 57 
COPES 56 
COTES 59 
COPES 60 

cores 61 

COPES 62 
--COPES 63 
'"COPES 64 

-cores 65 
COrES 66 
COPES 67 
COPES 68 
COPES 69 
-COPES 70 
COPES 71 
COPES 72 
--COPES 73 
COPES 74 
COPES 75 
COPES 76 
cores 77 
COPES 78 
COPES 79 
COPES 80 
COPES 81 
COPES 82 
COPES 83 
COPES 04 
COPES 05 
COPES 06 
COPES 87 
COPES 88 
COPES 09 
COPES 90 
COPES 91 
COPES 92 
COPES 93 
COPES 94 
COPES 95 
COPES 96 
COPES 97 
COPES 90 
COPES 99 
C0PES1 00 
--COPES1 0 ! 

COPES1 02 
— COPES1 03 
COPES1 04 
COPES 1 05 
COrES106 
COPES1 07 
COPES 1 08 
COPES1 09 
COPES1 10 
COPES11 1 
COFESl 1 2 
COPES1 1 3 
COPES1 14 
— C0PES115 
COPES! 16 
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c 


--COPES1 1 7 


DX=RA(N23 >-XX 

COPES177 


IF ( MPA. EQ. 0 ) GO TO 130 

COPES 1 1 ft 


IF ( ABStOXJ.LT.t .OE-6) XX=1 . 0Q1*RA( N23 J 

COPES178 

c 

AHALIZ INPUT DEFINES AN X-VECTOR. 

COPES1 19 


IF ( ABSO'Xt.LT.1 -0E-6) XX=.001 

COPES! 79 


M5= LOCK 5 1 

COPES 1 20 

170 

RA( NZ4 )=XX 

COPES 1 80 


N23=LDCR( 23 ) 

COPE 5121 


N 2 3 = N 2 3 ♦ 1 

COPES181 


DO 120 1=1, NXAPRX 

COPES 1 22 

180 

N24-N24M 

C0FE51 02 


J = IA(f15> 

COPES 1 23 

190 

CONTINUE 

COPES183 

c 

IS THIS A DESIGN VARIABLE. 

C0PES124 


REWIND ISCR2 

COPES! 84 


DO 90 K=1 tNDVTOT 

COPE SI 25 


NP3A=NPS+NPA 

COPES 1 05 


KK=K 

COPES126 


IF (NPSA.ER.O) GO TO 250 

COPES1 86 


IF (IAIK).Eq.J) GO TO 100 

COPES1Z7 


IF IMP5.EQ.0) GO TO 210 

COPES 1 87 

90 

CONTINUE 

COPES 1 28 

C 

READ X-VECTORS. 

corEsiea 

C 

NO. 

COPES1 29 


NXI-LOCRl 23 )+NPA*NXAFRX 

COTE 5 1 89 


AMULT= 1 . 

COPES130 


DO 200 J=1 , NPS 

COPES 1 90 


GO TO 110 

COPES131 


NXIJ=NXI+HXAFRX-1 

COPES1 91 

C 

YES. 

COPES132 


READ ( ISCP2 ) IRA(I),I=NXI,NXIJ) 

COPES l 92 

100 

K=L0CR(5)+KK-1 

COPES 1 33 

200 

NX I =NX I * MX AFRX 

COPES 1 93 


AMULT=RA( K ) 

COPES 1 34 

210 

CONTINUE 

C0PE51 94 

110 

RA( NZ3 )=ARRAY( J )/ANULT 

COPES l 35 


IF (NPFS.LE.O) NP5A=NPT0T 

COPES195 


M5=N5+1 

COPE3136 


NXIUOCRI 23) 

COPES196 

120 

N23=N23+1 

COPES1 37 


NY=NXI *NXAFPX*HPTOT 

COPES 1 97 

130 

CONTINUE 

COPES 1 38 


DO 240 J=1 ,NPSA 

C0PES198 


IF (NPS.GT.O.OR.NPFS.GT.O ) GO TO 190 

COPES139 

C 

TRANSFER X-VALUES. 

C0PES199 

C 

ONLY ONE DESIGN VECTOR IS AVAILABLE. CREATE A SECOND X-VECTOR 

COPES1 40 


N5 = LOCI t 5 ) 

COPES200 

C 

SO OPTIMIZATION CAN PROCEED. 

COPES1M 


1 1 = NX I 

COPES2Q1 


N23=LOCR( 23 ) 

COPES1 42 


DO 220 1=1 .NXAPRX 

C0PE5202 


N24=H2 3+NXAPRX 

COPES1 43 


1 1 = I A( N5 ) 

COFES20J 


M5-LOCK 5 ) 

COPES1 44 


ARRAY ( II )=RA( I! ) 

COPES204 


DO 180 1= J , NXAPRX 

COPES1 45 


M5=M5+1 

COrES205 

C 

GLOBAL LOCATION. 

COPES146 

220 

11=11+1 

COPESC06 


IG=IA(M5) 

COPES1 47 

C 

ANALIZE. 

COPES207 


M5=M5+1 

COPES 1 48 


NAN2=NAN2+1 

COPES208 

c 

PROPOSED X-VALUE. 

C0PES149 


CALL ANALIZ ( ICALC ) 

COPES209 


XX=1.1*RA(N23) 

COPES 1 50 

C 

PUT FUNCTION VALUES IN r-ARRAT. 

COPES2JO 


IF (ABS(XX).LT.I .0E-10) XX= . 1 

COPES 1 51 


M6=LOCI ( 6 ) 

COPES21 1 

c 

IS THIS A DESIGN VARIABLE. 

COPES 1 52 


1 1 =NY 

COPES21 2 


N5 = L0CR1 5 ) 

COPES 1 53 


DO 230 1=1 ,NF 

COPES213 


DO 1 40 J=1 ,NDVTOT 

COPES1 54 


II = IA( f16 ) 

COPES214 


JJ=J 

COPES 1 55 


RAt 1 1 1 =ARRAY (III 

COPES2 1 5 


AMJ=RA(N5) 

COPES 1 56 


11=11+1 

COPES216 


IF (IAlJ).Eq.IG) GO TO 150 

COPESf 57 

230 


COrE S2J7 

c 

NO. 

CQPESl 5ft 


NXI =NXI+ NXAPRX 

COPES218 


N5=N5+1 

COPES 1 59 


NY=NY+NF 

COPES219 

140 

CONTINUE 

COPES 1 60 

240 

CONTINUE 

COPES220 


GO TO 170 

COPES 1 6 1 

250 

CONTINUE 

COPES2C1 

150 

CONTINUE 

COPES 1 62 


IF (NPFS.LE.O) GO TO 270 

COPES2C2 

C 

YES. WHICH DESIGN VARIABLE IS IT. 

COTESI 6 3 


NXI = LOCP( 23 ) + NPSA*NXAFRX 

COPES223 


IO = LOCI( 2 J+JJ-1 

COPE S J 64 


NY=LDCRI 23 )+NXAFRX«NPTOT +NF#NP5A 

COFE5224 


ID=IA( ID ) 

COPE SI 65 

‘c 

READ X AND Y VECTORS. 

COPES225 

C 

INSURE XX IS WITHIN BOUNDS. 

COPES 1 66 


DO 260 J=1 , NPFS 

COPES226 


N2=LOCR(2)+IO-1 

COPE S 1 6 7 


NXI J=NXI +NXAFRX-1 

COPE5227 


N3=LQCR( 3 J + ID-1 

COPES 1 6ft 


NYJ=NY+NF- 1 

COPES226 


BL=RA(N2)*AB5(AMJ) 

COPES169 

c 

X-VECTOP. 

COPESC29 


BU=RA( N3 )*ABS( AMJ ) 

COPES1 70 


READ (ISCP2) (RA(I),I=NXI,NXIJ) 

COPES230 


IF (BL.LE.BU> GO TO 160 

C0PE51 71 

c 

Y- VECTOR. 

COPE3231 


SAV=BL 

COTE 51 72 


READ ( ISCR2 ) (RA( I ) , I=NY ,NYJ ) 

COFES232 


BL=BU 

COPE 5 1 73 


NXI = NXI ♦ NXAPRX 

COTES233 


BU=SAV 

COPE SI 74 

260 

NY=HY+NF 

COPES234 

160 

IF IXX.LT.BU XX=BL 

COPES 1 75 

270 

CONTINUE 

COPES235 


IF (XX.GT.BU) XX=BU 

COPES 1 76 

C 

PUT X-r PAIRS BACK ON I5CP2. 

COrLSC36 
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REWIND ISCR2 COPES237 C - - COPE5295 

NXI=LOCR( 23 ) COPE5238 C TWO VARIABLE FUNCTION SPACE COPES296 

NY=NXI*NXAPRX*NPTOT COPES239 C - — COPES297 

DO 280 1 = 1 iNPTOT COFES240 CALL COPE06 ( ARRAY »RA, IA»NARRAY , NOR A, NDIA ) COPES293 

NXIJ=NXI+NXAPRX-1 COPE5241 C OUTPUT RESULTS. COPES299 

NYJ=NY*NF-1 COPES242 CALL COPE07 ( RA , IA , NDRA , NDIA , ISCR 1 ) COPES300 

C X-VECTOR. COFE5C43 GO TO 340 COPES301 

WRITE IISCR2) ( RAt J ) * J = NXI , NXIJ ) COPE5244 330 CONTINUE COPES302 

C Y-VECTOR . COPES245 C COPES303 

WRITE ( ISCR2 ) ( RAt J),J=NY,NTJ) COPES246 C APPROXIMATE ANALYSIS/OPTIMIZATION. COPES304 

NXI=NXI J + 1 COPES247 C COPES305 

280 NY=NYJM COPES240 CALL COPE09 COPES306 

290 CONTINUE C0PES249 C OUTPUT RESULTS. COPES307 

GO TO ( 300, 300,310, 320, 310, 330), NCALC COPES250 CALL COPE 1 4 ( NXAPRX.NF ,NPTOT ,RA» IA, LOCR , LOCI , TITLE » INOM ,NDV» IPAPRXCOPES 308 

C COPES251 1 , 15CR2 »MAXTRM ) COPES309 

C ONE ANALYSIS COPES252 IF (KMAX.LT.O) GO TO 340 COPES310 

C COPES 25 3 CALL C0PE18 ( IOBJ , NDVTOT , NCONA , RA , IA , LOCR , LOCI , ARRAY ) COPES311 

300 NAN2=NAN2M COPES254 NAN3=NAN3+1 COPES312 

CALL ANALIZ ( ICALC ) COPES255 CALL ANALIZ (JCALC) COPES31 3 

IFINCALC.GT.1) GO TO 305 COPES256 340 CONTINUE COPES314 

HAN3=NAN3M COPES257 WRITE (6,350) NAN2.NAN3 COPE5315 

CALL ANALIZ (JCALC) COPES25S REWIND ISCR1 COPES3I6 

IF (NCALC.EQ.1) GO TO 340 COPES259 REWIND ISCR2 COPES317 

C C0PES260 RETURN COPES318 

C OPTIMIZATION COPES261 C - - COPE5319 

C COPE5262 C FORMATS COPES320 

C OPTIMIZATION. COPE5263 C — — - - - COPES321 

305 CONTINUE C0PE5264 350 FORMAT ( 1H1 ,4X , 23HFROCRAM CALLS TO ANALIZ//8X.5HICALC , 3X, 5HCALLS/1 COPE5322 

CALL COPE02 (ARRAY,RA,IA,NARRAY, NDRA, NDIA) COPES265 1 OX, 1 HI ,7X , 1H1/1 OX, 1H2 ,18/IOX, 1H3, 18 ) COPES323 

C OUTPUT RESULTS. COPES266 360 FORMAT ( //5X ,60HREQUIRED STORAGE FOR ARRAY RA OR IA EXCEEDS DIMENSCOPES324 

CALL COPE 1 8 (IOBJ, NDVTOT, NCONA, RA.IA, LOCR, LOCI, ARRAY) COPES267 HONED SIZE/5X , 5HARRAY , 2X , 9HDIMENSION » CX, 8HPEQUIRED/7X » 2URA , 18 ,6X» ICOPES325 

NAN3=NAN3+l COPES268 25/7X, 2HIA, IQ ,6X, I5//5X, 2CH« • PROGRAM TERMINATED) CQPE5326 

CALL ANALIZ (JCALC) COPES269 END C0PES327 

GO TO 340 COPES2 70 SUBROUTINE COPEQ1 ( RA , IA , NDRA , NDIA ) C0PES328 

C - COPE32 71 COMMON /CNNN1 / DELFUN , DABFUN , FOCH , FDCHM.CT ,CTMIN, CTL .CTLMIN, ALPHAXCOPES329 

C SENSITIVITY ANALYSIS COPES272 1 .ABOBJ1 , THETA . OBJ , NOV ,NCON .NSIDE , IPRINT ,NFDG ,NSCAL , LINOBJ , ITMAX , ITCOPES330 

C COPES273 2RM,ICNDIR,IGOTO,NAC, INFO, INFOG, ITER COPES331 

310 CONTINUE COFES274 COMMON /COPES1 / ATITLEt 20 ) COPES332 

C ARRAY STARTING LOCATIONS. COPES275 COMMON /COPES3/ SGNDPT , NCALC » IOBJ , NSV , NSOB J , NCONA , N2VX , M2 VX » N2 VY , HCOPES3 3 3 

C SENS. COPES276 1 2VY ,N2VAR , IP5ENS, IP2VAR , IPDBG.NACMX1 .NDVTOT , LOCR( 25 ), LOCK 25 ). ISCRCOPES334 

N1=LOCR( 15) COPES277 2 1 * ISCP2 , NXAPRX ,NPS »NPFS , NPA , NF » INOM, IPAPRX»KMIN»KMAX,XFACT1 , XFACTCCOPES335 

NN8 = L0CR( 16 )-N1 COPES278 3 , HAH2 , N AN3 , NPMAX , NPTO T » JNOM . MAXTRM COPES336 

C NSENSZ. COPES279 DIMENSION RAC NDRA) > IA(HDIA), TITLE(20) COPE5337 

H2 = LOCI( 15 ) COPES20O DATA END1 /I HE/ , EN02/ 1 HM/ , END3/1 HD/ COPES330 

NN9=NSOBJ COPES281 DATA COM/1H$/,BLANK/1H / COPES339 

C ISENS . COPES28C C 

N3 = LOCI ( 1 6 ) COPES283 C ROUTINE TO READ CONTROL INPUT FOR COPES. COPES341 

NN10=NSV COPES204 # C ##»***M##*«W<*W**#*#K#«##«#«*XW*tt#*#W#***tMW*»*«####KW«»(WWW##K#K«WKCaPES342 

"C NSENS. COPES285 *C BY G . N. VANDERPLAATS MAR., 1973. COPES343 

N4 = LOCK 1 7 ) COPES286 C NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. COPES344 

C TEMP. COPES287 C - COPES345 

N5 = L0CR( 2 3 ) COPE5288 C READ CARD IMAGES AND STORE ON UNIT ISCR2 . STORE ON UNIT ISCR1 C0PE5346 

CALL COPE04 ( ARRAY , NARRAY , RA( N1 ), IA( N2 ), IA( N3 ), IA( N4 ), RA( N5 ), NN8 , NC0PES289 C WITHOUT COMMENT CARDS COPES347 

1N9,NN10,RA,IA, NDRA, NDIA ) COPES290 C - C0PES34B 

CALL COPE04 ( ARRAY , NARRAY »RA(N1 1 »IA(N2) ,IA(N3 l ,IA(N4 ) »RA(N5 1 ,NM3,NCOPESCQ9 REWIND 1SCR1 COPES349 

IN9,NN10,RA,IA, NDRA, NDIA) COPES290 p REWIND ISCR2 COPES350 

-C OUTPUT RESULTS. C0PES291 . NCAPDS=0 COPE5351 

CALL COPE05 (RA,IA, NDRA, NDIA, ISCR1 ) C0PES292 LOCI(25) = 0 C0PCS352 

GO TO 340 COPES2 93 NCOM = 0 COPES353 

320 CONTINUE COPE3294 ICARD^O COPE5354 
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10 


READ (5,580) (RA( I ) , 1=1 ,80 ) COPE5355 

ICAR0=ICARDM COPES356 

NCARDS=NCARDSM COPE5357 

WRITE ( ISCR2 »590 ) NCARDS,(RAl I ) ,1=1 ,80 ) COPES350 

IF (RAM). EQ.COM) GO TO 10 COPES359 

IF (RAM ).EQ.END1 .AMD. (RAJ 2 ) .EQ.END2 . AND.RAl 3 ) .EQ. ENDS )) GO TO 20 COPES360 
IF ( NCOM.NE . 0 ) GO TO 30 COPES361 

C TITLE OR END CARD. COPES36Z 

20 WRITE ( I5CR 1 ,580 ) ( RA( I ) ,1=1 ,80 ) COPES363 

IF ( NCOM.GT . 0 ) GO TO 70 COPES364 

C IT WAS THE TITLE CARO. COPES365 

NCOM= 1 COPES366 

GO TO 10 COPES367 

30 CONTINUE COPES36S 

C FORMAT DATA AS REQUIRED. COPE5369 

NAM COPE5370 

NB=81 COPES371 

CALL COPEOfi (RA(NA) »RA(N8 ) ,IF0RM,NFL0 ) COFES372 

C DETERMINE NUMBER OF CARDS OF DATA AND ADD BLANKS TO FILL. COPES373 

NBCMNFLD-1 )/6M COPES374 

NB=80*NBC+80 COPES375 

NA= 1 0*NF LD*81 COPES376 

IF (NA.GE.NB) GO TO 50 COPES377 

00 40 I=NA ,NB COPES378 

40 RA( I )=BLANK C0PES379 

50 CONTINUE COPES380 

WRITE ( ISCR 1 , 580 ) ( RA( I ) , 1=81 ,NB ) COPES381 

IF (IFORM.GT.O) GO TO 10 COPES382 

C DATA HAS NOT PREVIOUSLY FORMATTED. COPES383 

NT =1 COPES384 

DO 60 11=1, NBC COFES3S5 

N1=N1*8Q COPES386 

N2=N1 *79 COPES387 

WRITE (I5CR2,590> NCARDS, ( RA( I ) ,I=N1 ,N2 ) COPES388 

60 ICARD=ICARDM COPE5399 

GO TO 10 COPE5390 

70 CONTINUE COPES391 

REWIND ISCR1 COPE5392 

REWIND ISCR2 COPES393 

C - COPE5394 

C GENERAL SYNTHESIS INFORMATION COPES395 

C COPES396 

C TITLE. COPES397 

C DATA BLOCK A. COPES398 

READ ( ISCR1 ,1190) ( ATITLE ( I ) ,1=1 ,20 ) COPES399 

C CONTROL PARAMETERS. COPES^OO 

C — DATA BLOCK B. COPE5401 

READ ( ISCR1 ,1200) NCALC ,NDV ,NSV,N2VAR .NXAPRX , IPNPUT , IPDBG COPE5402 

IF (NCALC. LT.O. OR. NCALC. GT. 6) WRITE (6,1220) NCALC COPES403 

IF (NCALC. LT.O. OR. NCALC. GT. 6) RETURN COFES^.04 

IF (IPNPUT. GT. 1 ) GO TO 100 COFES405 

WRITE (6,970) COPE5406 

WRITE (6,980) COPES407 

WRITE (6,990) ( ATITLEt I ) , 1 = 1 , 20 ) COPES406 

C - - - -COPES409 

.C CARD IMAGE PRINT COPES410 

Ic COPE541 1 

IF ( IPNPUT. GT.O ) GO TO 90 COPE5412 

WRITE (6,870) COPES413 

WRITE (6,830) C0PES414 


DO 80 1=1 ,ICARD 

READ ( ISCRC ,590 ) NCARDS ,( RA( J ) ,J=1 , 80 ) 

WRITE 16,890) NCAPDS, ( RA( J ) , J=1 ,80) 

REWIND I5CR2 
CONTINUE 

WRITE (6,1000) ( ATITLE ( I ) »I= 1 ,20 ) 

WPITE (6,1010) NCALC, NDV.NSV.NCVAR ,NXAPRX, IPNPUT, IPD8G 
WRITE (6,910) 

NACMX1 =0 
NDVTOT=0 
NCONA=0 
NCON=D 

IF (NDV.LE.O) GO TO 270 


C OPTIMIZATION INFORMATION COPES429 

C COPES430 

C OPTIMIZATION CONTROL VARIABLES. - CONMIN DEPENDENT. COPES431 

C DATA BLOCK C. COPE5432 

READ (ISCR I , 1 200 ) I PRINT, ITMAX, ICNDIR ,NSCAL » ITRM, LINOBJ ,NACMX1 ,NFDCOPES433 
1 G COPES434 

C — DATA BLOCK D. COPES435 

READ (I5CR1 ,1210) FDCH , FDCHM.CT .CTMIN ,CTL,CTLMIN, THETA, PHI ,DELFUH , COPES436 
1DABFUN, ALPHAX , ABOBJ 1 COPES437 

C — DATA BLOCK E. COPES438 

C TOTAL NO. OF D. V., OBJECTIVE GLOBAL NUMBER, SIGN C0PES439 

C ON OPTIMIZATION OBJECTIVE. COPE5440 

READ ( ISCR1 * 920 ) NDVTOT , IOBJ , SGNOPT COFES441 

IF (NDVTOT. LT.UDV) NDVTOT=NDV COPES442 

IF (NCALC. EQ .6 . AND.NACNX1 . EQ. 0 ) NACMX1 =2*NDV + 2 COPE54^3 

IF ( NACMX1 . LE . 0 ) NACMX1=NDV*2 COPES4C.4 

IF ( IPNPUT. GE. 2) GO TO 110 COrES445 

IF ( ABS( SGNOPT ). LT. 1 .0E-10) SGNOPT=-1 . C0PES^46 

WRITE (6,1070) IOBJ, SGNOPT COPES447 

WRITE (6,760) IFPINT , ITMAX, ICNDIR .NSCAL, ITRM, LINOBJ ,NACMX1 ,NFDG COPES440 

WRITE (6,770) FDCH , FDCHM.CT , CTMIN, CTL.CTLMIN, THETA, FHI , DELFUN.DABFCOPES449 
1 UN, ALPHAX, ABOBJ 1 COPES450 

110 N2 = NDV + 3 C0PES451 

N3=N2*NDV+2 C0FES452 

N4=N3*NDV+2 C0FES453 

C — DATA BLOCK F. COFES45R 

C DESIGN VARIABLE INFORMATION, LB, UB, INITIAL VALUE, SCAL. COPC5455 

IF ( IPNPUT. LT. 2 ) WRITE (6,1080) COPES456 

N5=N4*NDV+2 COPE5457 

IF (N5.LE.NDRA) GO TO 120 COPE5458 

WRITE (6,780) COPES459 

WRITE (6,790) COFES460 

LOCR( 25 ) =N5 C0PE5461 

GO TO 550 COFES462 

120 CONTINUE COrtS463 

NSIDE=0 COFES464 

DO 130 1=1 , NDV COFES465 

READ ( ISCR 1 ,1060) RA( N2 ) , RA( N3 ) ,RA( I ) ,RAl N4 ) , ( TITLE ( J ) , J=1 , 5 ) COPESh66 

IF (RA(HE).GT.-I . OEM 5 . OR . PA< N3 ) . LT. 1 .OE + 15) NSIDE = 1 C0PES467 

IF (RAIN2I.LE.-1.0EM5J RAl N2 ) = -1 . 1 EM 5 CUPLS468 

IF (RAIN3J.GE.1 .0EM5) PA(N3 ) = 1 . 1EM5 COFE5469 

IF (imrUT.LT.2) WRITE (6,1090) I ,RA( N2 ) »RA( N3 ) *RA( I ) ,RA( N4 ) , ( TITLCOFE54 7 0 
1 E( J ) , J= 1 ,5 ) COPCS47I 

NC=N2 * 1 COFES472 

N3--N3M COrE5473 

K4=N-tM C0rES474 
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130 CONTINUE 
C — DATA BLOCK G. 

C 0. V. NO., GLOBAL LOCATION, MULTIPLYING FACTOR. 

IF ( IPNPUT. LT.2 ) WRITE (6,930) 

N5=4*NDV+9 

M2=NDVT0T 4 1 

N6=N5 4 NDVT0T 

M3=M2 4 NOVTOT 

IF (N6.LE.NDPA) GO TO 140 
WRITE (6,780 ) 

WRITE (6,800) 

LOCP ( 25 )=N5 
GO TO 550 
140 CONTINUE 

IF (M3.LE.N0IA) GO TO 150 
WRITE (6,810) 

WRITE (6,800) 

LOCK 25) = M3 
GO TO 550 
150 CONTINUE 

DO 160 1=1 , NDVTOT 

READ ( ISCR 1 , 920 ) IA( M2 ) , I A ( I ) ,RA( N5 ) 

IF ( ABS(RA(N5)).LT.1 .0E-20) RA(N5) = 1.0 

IF ( IPNPUT. LT.2) WRITE (6,940) I , IA( M2 ) , IA( I ) *R A( N5 ) 

M2=M2 ♦ 1 

N5=N5+ 1 

160 CONTINUE 
NCON=0 

C — DATA BLOCK H. 

C NUMBER OF CONSTRAINT SETS. 

READ ( ISCR 1 , 920 ) NCONS 
IF (IPNPUT. LT.2) WRITE (6,1110) 

IF (IPNPUT. LT.2) WRITE (6,1120) NCONS 

IF (NCONS. EQ.O ) GO TO 270 

IF ( IPNPUT. LT.2) WRITE (6,1130) 

N6=4*NDV 4 NOVTOT+9 

M3=2*NDVTOT 4 1 

M4=2#NOVTOT+NCONS 

M4A=M4+1 

L= 1 

C — DATA BLOCK I. 

DO 240 1=1, NCONS 
NNH=N6+3 

IF (NNN.GT.NORA) GO TO 250 

C GLOBAL NO. 1, GLOBAL NO. 2, LINEAR CONSTRAINT ID, 
READ (ISCR 1,1 200) ICONI , JCONI , LCONI 
C LB, NORM, UB, NORM. 

READ ( ISCR 1 ,1210) ( RA( J ) , J=N6 ,NNN ) 

IF (RA(N6 1. LE.-1 .OE+15) RA( N6 )=- 1 . 1 E+1 5 
IF ( R A ( N6 4 2 ) . GE . 1 . 0 E + 1 5 ) RA( N6 + 2 ) = 1 . 1 E* 1 5 
IF (RA( N6 + 1 ) .LT. 1 . 0E-20 ) RACN6 + 1 )=ABS( RA( N6 ) ) 

IF (RAIN6+1 ) .LT. 1 .0E-20 I RA(N6M) = Q.t 
IF (RAIN6+3) .LT.1 .OE-20) RA( N6 4 3 )=ABSl RA( N6 4 2 )) 

IF (RAIN6+3) .LT.1 .0E-20 ) RA(N6+3)=0.i 
C NUMBER OF VARIABLES IN THIS SET. 

NVAR= JCONI - ICONI 4 1 
I IF ( NVAR. LT. 1 ) NVAR= 1 

NC0NA=NC0NA 4 NVAR 
C HOW MANY CONSTRAINTS? 

J 1 =0 


C0PES475 

COPES476 

COPCS477 

COPES478 

COPES479 

COPES480 

COPES481 

COCES482 

COPES403 

C0PES464 

COPE5485 

C0PES486 

COPES487 

C0PES48Q 

C0PES489 

COPE5490 

COPES49 1 

COPE5492 

COPES493 

C0PES494 

COPES495 

COPES496 

COPES497 

COPES498 

COPES499 

COPE 0500 

COPES50 1 

C0PCS502 

C0PES503 

COPE 5504 

COPCS505 

COPE 5506 

COPES507 

COPES50A 

COPE5509 

COPES51 0 

COPE551 1 

COPE5512 

COPES5 1 3 

COPES51 4 

COPES5 1 5 

COPE 55 1 6 

COPES51 7 

COPES51 8 

COPE551 9 

COPES520 

COPES52 1 

COPES522 

COPES523 

COPES524 

COPES525 

COPES526 

COPES527 

COTES528 

COPES52 9 

COPES530 

COPES531 

COPES532 

COPES533 

COPE5534 



IF (RA(N6 ) . GE . - l . OE * 1 5 ) J 1 =1 

COPF.S535 


IF (RAIN6 + 2 ).LT. 1 .OE + 15) J1=J1+1 

CO'TS536 


HCONI = J1*>NVAR 

COPCS537 


NCON=NCOI 1 * NCONI 

CCPES538 


IF ( J 1 .EQ.O) GO TO 100 

COrES539 

c 

ADD LIHFAP CONSTRAINT IDENTIFIERS TO ISC. 

COPES540 


DO 170 J=1 , NCOMI 

COPE 5541 


M4 =114+1 

COPGS54C 


MMM-M4 

C0PES543 


IF (riMM.GT.NDIA) GO TO 260 

C0PES544 

170 

IA( M4 ) = LCONI 

C0PE5545 

180 

CONTINUE 

COPE5546 

C 

ADD LB, UB AND SCAL TO BLU IF NVAR .GT. 1 . 

COPE5547 


IF (NVAR.EQ.1 ) GO TO 200 

COPES540 


NVAR 1 =H7AR- 1 

COPE5549 


DO 190 J=1 , NVAR1 

COPE5550 


NNN=N6 4 7 

COPES5D1 


IF ( NUN.GT.NDRA ) GO TO 250 

COPES552 


RA(N6 4 4)=RA(N6) 

COPE 5553 


PA( N6 4 5 )=RA( N6 + 1 ) 

C0PES554 


RA ( N6 4 6 ) = RA( N6 4 2 ) 

COPE5555 


RA( N6 4 7 ) = RA( N6 + 3 ) 

COFES556 


N6=N6+4 

COPES557 

190 

CONTINUE 

COPES558 

200 

CONTINUE 

COPE5559 

C 

ADD CONSTRAINED VARIABLE GLOBAL IDENTIFIERS TO 

ICON. COPES560 


ICONI = ICONI 

COPES56 l 


MMM=M4«NVAR-1 

COPES562 


IF (MMM.GT.NDIA) GO TO 260 

C0PES563 


DO 230 J=1 ,NVAR 

COPES564 


IF ( J.EQ.1 ) GO TO 220 

COTES565 

C 

SHIFT ISC VECTOR. 

COPES566 


L1=M4M 

COPES56 7 


L2 = M4 

COPES56Q 


DO 210 K=M4A,M4 

COPES569 


I A ( LI ) = I A ( L2 ) 

COPE5570 


LI = L 1 - 1 

COPES571 

210 

L2=L2- 1 

COPE5572 


M4=M4 4 1 

COPES573 


M4A=M4A 4 1 

COPES574 

220 

I A( M3 ) =ICON1 

COPE5575 


ICONI =ICON1+1 

C0PE5576 

230 

M3=M3 4 1 

COPES577 


IF ( IPNPUT. IT. 2) WRITE (6,1100) L, ICONI , JCONI , 

LCONI ,RA( N6 ) ,RA( N6+1 COPES578 


1 ) ,PA( N6 4 2 ) *RA( N6 + 3 ) 

C0PCS579 


N6=N6 4 4 

COPES530 


L=NCON+1 

COPE55S 1 

.240 

CONTINUE 

COPES502 


IF ( IPNPUT. LT.2 ) WRITE (6,900) NCONA 

COPES503 


GO TO 270 

COPES504 

250 

WRITE (6,780) 

COPES585 


WRITE (6,820) 

COPE5586 


LOCR( 25 )=NNN 

COPES507 


GO TO 550 

C0PE5588 

260 

WRITE (6,810) 

COPE5509 


WRITE (6,820) 

COPES590 


LOCK 25 ) = MMM 

COPE5591 


GO TO 550 

COPES592 

270 

CONTINUE 

COFES593 


C STATING LOCATIONS FOR APPROXIMATION INFORMATION. C0PC5594 
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NAFR=9*NDV+N0VT0T ANCONA* 9 

COPE5595 


WRITE (6,630) 

COPE5655 


NAPI=2#l MOV+NCOMA ) ♦2»NDVTOT+HCONA+1 

C0PE5596 


LOCK 25 ) -MH5 

COPE5656 


NF = Q 

COPE 5597 


GO TO 550 

corr$657 


KMAX=0 

C0PES598 

300 

CONTINUE 

corcstss 


NPTOT=0 

COPES599 


IF ( INX LOC .EQ.O) GO TO 310 

C0FES659 


MAXTRM=0 

COPES600 


READ ( ISCR1 ,1200) ( IA( I ) , I=M5 ,MM5 ) 

COPES660 


IF (NXAPRX.LE.O) GO TO <>50 

CQPES601 


GO TO 330 

COPES661 

c 


-COPES602 

310 

CONTINUE 

COPE5662 

c 

APPROXIMATE ANALTSIS/DESIGN 

C0PES603 

C 

X- LOCATIONS ARE DEFAULTED TO DESIGN VARIABLE LOCATIONS. 

COFE3663 

c 


-C0PES609 


DO 320 I=t,NXAFRX 

COPE5669 

c — 

DATA BLOCK J. 

COPES605 


IA(M5) = IA( I) 

COPES665 

c 

CONTROL PARAMETERS. 

COPES606 

320 

M5=M5 4 1 

COPES666 


READ ( ISCR1 » 1 200 ) NF ,NPS ,NPFS,NPA , INOM, ISCRX, ISCRXF , IPAPRX 

COPE 5607 


M5=NAPI 

COPE5667 


IF (NPA.NE.O) NPA=1 

COFE560® 

330 

CONTINUE 

COPES668 


IF ( NPS .EQ.O. ANO . HPFS . EQ.O) NPA=1 

COPES609 


IF ( IPNPUT.LT, 2) WRITE (6,690) 

COPES669 


IF (ISCRX. EQ.O) ISCRX=5 

COPES610 


IF (IPNPUT.LT. 2) WRITE (6,1180) ( IAU) , I=M5,MM5 ) 

COPES670 


IF (ISCRXF. EQ.O) ISCRXF=5 

COPES61 1 

c --- 

DATA BLOCK M. 

COPES671 


IF (IPNPUT.LT. 2) WRITE (6,600) NF , NPS ,NPFS,NPA , INOM, ISCRX, ISCRXF , 

IC0PE561 2 

C 

GLOBAL LOCATIONS OF FUNCTIONS. 

COPES672 


IPAPRX 

C0PES61 3 


M6=NAPI+NXAPRX 

COPES673 


NPSFS=HPS*NPFS 

COPE 561 9 


MM6=M6+NF-1 

COPES679 


IF (NP5FS.LT. 2 ) NPA=1 

COPES615 


IF (MM6.LE.HDIA) GO TO 390 

COPE5675 


NPTOT=NPS*NPFS*NPA 

COPE S6 16 


WRITE (6,780) 

COPES676 


IF (NPTOT.LT. 2) NPT0T=2 

COPES617 


WRITE (6,650) 

COPES677 


READ ( ISCR1 • 1 200 ) KMIN,KMAX,NPMAX, JNOM»INXLQC * INFLOC ,MAXTRM 

COPES618 


LOCK 25 )=f'.M6 

COPES678 


IF ( IMXLOC .EQ.O) NXAPRX=NDVTOT 

COPES61 9 


GO TO 550 

COPES679 


M=NXAPRX* ( NXAPRX*( NXAPRX+ 1 ) )/2 

COFE5620 

390 

CONTINUE 

CQPES680 


IF (NPMAX.LE.O) NPMAX=2*M 

COPES62 1 


IF (INFLOC. EQ.O) GO TO 350 

COPES681 


IF ( KMAX.EQ. 0 ) KMAX=3*M-NPT0T+ 1 

COPES622 


READ ( ISCR1 » 1 200 ) ( IA( I ) , I=M6»MM6) 

COPE5682 


IF (KMIN.EQ.Q) KMIN-2#NDV-NPTQT + 1 

COPES623 


GO TO 380 

C0PES683 


IF (KMIN.LT.O) KMIN=0 

COPE5629 

350 

CONTINUE 

COPE5689 


IF (KMAX.GT.O.AND.KMAX. LT.KMIN) KMAX=KMIN 

COPE5625 

C 

FUNCTION LOCATIONS ARE DEFAULTED TO OBJECTIVE AND CONSTRAINT 

COPES665 


IF (JNOM.EQ.O) JN0M=2*M 

COPES626 

C 

LOCATIONS. 

C0PES686 


IF (MAXTRM.LT.H MAXTRM=3 

COPES627 


NF 1 = 1 

CQPES687 


IF ( IPNPUT.LT. 2 ) WRITE (6,610) KMIN » KMAX , NPMAX » JNOM » INX LOC , INF LOC 

,COPES628 


M3=2*NDVTOT+t 

C0PES688 


1MAXTRM 

COPES6 29 


IAK16 )=IOBJ 

C0PES689 

c — 

DATA BLOCK K, PART 1. 

COPE5630 


IF ( NCONA. EQ.O) GO TO 370 

COPES690 

c 

DELX BOUNDS ON APPROXIMATE OPTIMIZATION. 

COPES631 


DO 360 1=1, NCONA 

COPES691 


IF (NOV.LE.O) GO TO 290 

COPES632 


IF (IA(M3).EQ.IODJ) GO TO 360 

COPES692 


N7=NAPR 

COPCS633 


NF1 =NF1 +» 

COPE5693 


NN7=H7*NDV-1 

COrES639 


M6=M6 + 1 

COPES699 


IF (NN7. LE.NDRA) GO TO 280 

COPE5635 


IA( M6 )=IA( M3 ) 

COPES695 


WRITE (6,780) 

COPES636 

360 

M3=M3* 1 

COPES696 


WRITE (6,560) 

COPES637 

370 

NF=NF1 

COPES697 

280 

CONTINUE 

COPES638 

380 

M6=NAPI+NXAPRX 

COPE5698 


READ ( ISCR J ,1210) ( RA( I ) , I=N7,NN7 ) 

COPE5639 


MM6=M6*NF- 1 

COPES699 


IF (IPNPUT.LT. 2) WRITE (6,570) 

COPES640 


IF ( IPNPUT.LT. 2) WRITE (6,660) 

COr£S700 


IF (IPNPUT.LT. 2) WRITE (6,1160) ( RA( I ) , I=N7,NN7 ) 

C0PES69t 


IF (IPNPUT.LT. 2) WRITE (6,1100) ( IA( I ) »I=M6,MM6 ) 

COPES701 

.c — 

DATA BLOCK K, PART 2. 

COPES692 

.c — 

DATA BLOCK N. 

COPES702 

c 

MULTIPLIERS ON DELX. 

C0PES693 

c 

READ INPUT X- VECTORS AND STORE ON UNIT ISCR2. 

COPES703 


READ ( ISCR1 » 1210 ) XFACT1 ,XFACT2 

C0PES699 


REWIND I SCR 2 

COPES709 


IF (XFACT1 .LT.t.OE-IO) XFACT1=1.5 

C0PE5695 


IF (NPS. EQ.O) GO TO 910 

COPES705 


IF ( XFACT2.LT. 1 . OE-1 Q ) XFACT2=2. 

COFES696 


N7=NAPR+NDV 

COPES706 


IF (IPNPUT.LT. 2) WRITE (6,620) XFACT1 *XFACT2 

COPE5697 


NN7=N7*NXAPRX-1 

COPES707 

290 

CONTINUE 

C0FE569B 


IF (NN7. LE.NDRA) GO TO 390 

COPES708 

C 

DATA BLOCK L. 

COPE 5699 


WRITE (6,780) 

COPES709 

-C 

GLOBAL LOCATIONS OF X-VARIABLES. 

COFE5650 


WRITE (6,670) 

COPE571 0 

- 

M5=NAPI 

COFE5651 

l 

LOCP( 25 ) =NH7 

COPES71 1 


MM5=M5+NXAPRX-1 

COPE S652 


GO TO 550 

COFES712 


IF (MM5.LE.NDIA) GO TO 300 

COFE5653 

390 

CONTINUE 

COPES71 3 


WRITE (6,780) 

COPES659 


IF (IPNPUT.LT. 2) WRITE (6,680) ISCRX 

COPES71 9 
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DO 400 1=1 ,NPS 

COrES7J5 

C --- 

DATA BLOCK P, PART 2. 

COPE5775 

c 

BINARY READ IF ISCRX.NE.5. 

COPE5716 

C 

NSEIISZ. 

COPE5776 


IF (ISCRX.NE.5) READ ( I5CRX ) ( RA( J ) , J = N7 »NN7 ) 

COPE571 7 


M15=N5VI 

COPES777 

c 

FORMATTED READ IF ISCRX.EQ.5. 

C0PE57I8 


MM15=M1S»N50BJ-t 

COPES778 


IF (ISCRX.EQ.5) READ ( ISCP1 .1210) ( RA( J ) , J=N7 ,NN7 ) 

COPES719 


IF (MM15.LE.NDIA) GO TO 460 

COPE5779 


WRITE ( ISCR2 ) t RAC J ) ,J=N7,NN7) 

COPES72 0 


WRITE (6,810) 

COPES780 


IF (IPNPUT.LT. 2) WPITE (6,710) I, I 

COTES721 


WRITE (6,830) 

COPES781 


IF (IPNPUT. LT.2 ) WRITE (6,1)60) ( RA ( J ) , J=N7 ,NN7 ) 

COPES722 


LOCK 25 ) = MM1 5 

COPES762 

400 

CONTINUE 

COPED72 3 


GO TO 550 

C0PES783 

410 

CONTINUE 

COPES724 

460 

CONTINUE 

COPE5704 

c — 

DATA BLOCK 0. 

COPES725 


READ ( ISCR 1 , 1 200) ( IA( I ) » I=M1 5 ,MMJ 5 ) 

COPCS785 

c 

READ INPUT X-F PAIRS AND STORE ON UNIT ISCR2 . 

COPE 5726 


IF ( IPNPUT.LT. 2) WRITE (6,960) IPSENS, NSOBJ 

C0FES786 


IF (NPFS.EQ.O) GO TO 440 

COPES72 7 


IF (IPNPUT.LT. 2) WRITE (6,950 ) ( IA( I ) , I=M1 5 ,MM1 5 ) 

C0PES707 


N7=NAPR+NDV 

COPES728 


IF (IPNPUT.LT. 2) WRITE (6,1030) 

C0PES7C8 


NN7=N7+NXAPRX-1 

COPES729 


N15=NSVR 

COPES789 


NN8=N7 4 NF-1 

COPES730 


Ml 6=NSVI 4 N50BJ 

COPES790 


IF (HN7.GT.NN8) NNB=NN7 

COPES731 


Ml 7 = M1 6 4 NSV 

COFES791 


IF (NNB.LE.NDRA) GO TO 420 

COPES732 


DO 490 1=1 , N5V 

COPES792 


WRITE (6,780) 

COPES733 

c — 

DATA BLOCK Q, PART 1 . 

COPES793 


WRITE (6,690) 

COPES734 

C 

I5ENS , N5ENS. 

COPES794 


LOCRf 25 )=NNB 

COPES735 


READ ( ISCR 1 ,1200) IA(M16),NN1 

COPES795 


GO TO 550 

COPES736 


NH1 5=N 1 5 4 NN1 “1 

COPES796 

420 

CONTINUE 

C0PES737 


IF (NN15.LE.NDRA) GO TO 470 

COPES797 


NN8=N7 4 NF- 1 

COPES738 


WRITE (6,780) 

C0PES798 


IF (IPNPUT.LT. 2) WRITE (6,700) ISCRXF 

COPES739 


WRITE (6,840) 

C0PES799 


DO 430 1=1 ,NPFS 

COPE5740 


LOCR ( 25 )=NN15 

COPESBOO 

C 

X-VECTOR. 

C0PES741 


GO TO 550 

COPES801 

C 

BINARY READ IF ISCRXF. NE. 5. 

COPES742 

470 

CONTINUE 

COPES802 


IF (ISCRXF. NE. 5) READ (ISCRXF) ( R A ( J ) , J=N7 >NN7 ) 

C0PE5743 

C --- 

DATA BLOCK Q, PART 2. 

COPES803 

C 

FORMATTED READ IF ISCRXF. EQ. 5. 

C0PES744 

C 

SENS. 

COPES0O4 


IF (ISCRXF. EQ. 5) READ (XSCR1.1210) ( RA( J ) , J=N7 , NN7 ) 

C0PES745 


READ ( ISCR 1 ,1210) ( RA( J ) , J=N1 5*NHl 5 ) 

COPESB05 


II=I+NPS 

C0PES746 


IF ( IPNPUT.GE .2 ) GO TO 400 

COPES006 


IF (IPNPUT.LT. 2) WRITE (6,710) I, II 

C0PES747 


J J=N1 5+5 

C0PES807 


IF (IPNPUT.LT. 2) WRITE (6,720) 

C0PE5748 


IF (JJ.GT.MM15) JJ=NN15 

COPES808 


IF (IPNPUT.LT. 2 ) WRITE (6,1160) ( RA( J ) , J=N7 ,NN7 > 

C0PES749 


WRITE (6,1040) I,IA(M16),(RA(J),J=N15,JJ) 

COPES809 


WRITE ( ISCR2 ) (RA(J),J=N7,NN7) 

COPES 750 


JJ=JJ 4 1 

COPES810 

C 

FUNCTION VALUES. 

COPES751 


IF (JJ.LE.NN15) WRITE (6,1050 ) ( RA( J ) , J = JJ ,NN1 5 ) 

C0PES81 1 

C 

BINARY READ IF ISCRXF. NE. 5. 

C0PES752 

480 

CONTINUE 

COPE581 2 


IF (ISCRXF. NE. 5) READ (ISCRXF) ( RA( J 1 , J=N7 ,NN8 ) 

COPE5753 


NSVTOT=NSVTOT+NN1 

COPES01 3 

c 

FORMATTED READ IF ISCRXF. EQ. 5. 

COPES754 


I A C Ml 7 )=NN1 

C0PESB14 


IF (ISCRXF. EQ. 5) READ (ISCR1,1210J ( RA( J ) , J=N7 ,NN8 ) 

COPES755 


N1 5=HN1 5 4 1 

COPES815 


IF (IPNPUT.LE.2) WRITE (6,730) 

COPE 5756 


M16=M16+1 

C0PE501 6 


IF (IPNPUT.LT. 2) WRITE (6,1160) ( RA( J ) , J=N7,NN8 ) 

COPES757 


Ml 7 = M1 7 4 1 

C0PE501 7 


WRITE ( ISCR2 ) ( RA( J ) » J=N7 , NN8 ) 

COPES758 

490 

CONTINUE 

C0PE581 8 

430 

CONTINUE 

C0PE3759 

500 

CONTINUE 

COrES819 

440 

CONTINUE 

C0PES760 


M2VX= 0 

COPE5520 

450 

CONTINUE 

C0PES761 


M2VY = 0 

C0PE592 1 


NSOBJ = 0 

C0PES762 

.C 

STARTING LOCATIONS FOR TWO-VARIABLE FUNCTION SPACE INFORMATION. 

COPES822 


NSVTOT=0 

C0PES763 


N2 VR = NSVR 4 N5VT0T 

COPE5823 

C 

STARTING LOCATIONS FOR SENSITIVITT INFORMATION. 

COPES764 


N2VI=NSVI 4 NS0BJ 4 2#N5V 

COPES024 


NSVR=NAPR 4 NDV 

COPES 765 


IF (N2VAR.LE.O) GO TO 540 

COPESQCS 


NSVI=NAPI 4 NXAPRX 4 NF 

COPES766 

C 


— COPES826 


IF (NSV.LE.O) GO TO 500 

COPES767 

C 

TWO-VARIABLE FUNCTION SPACE INFORMATION 

COPE5827 

P 


rnnrc74 a 

p 


rnpp^ATA 

L 






c 

SENSITIVITY INFORMATION 

COPES76 9 

c --- 

DATA BLOCK R. 

COPE5829 

.c 


COPES770 

.c 

VARIABLE NUMBERS AND NUMBER OF VALUES OF X AND Y. 

COPES830 

. 

IF (IPNPUT.LT. 2) WRITE (6,1020) 

COPES77 1 


READ ( ISCR 1 ,1200) N2VX ,M2VX ,N2VY »M2VY , IP2VAR 

C0PES831 

c — 

DATA BLOCK P, PART f. 

COPES 772 


N20=N2VR 

COPES832 

c 

NSOBJ, IPSENS 

COPES773 


M20=N2VI 

COPCS333 


READ ( ISCR 1,1200) NSOBJ, IPSENS 

COPES774 


MM2 0 = M2 0 4 N2 VAR- 1 

COPE5834 
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IF (MH2Q.LE.H0IA1 GO TO 510 
WRITE (6»610) 

WRITE 16,650) 

LOCI l 25 )=MM20 
GO TO 550 
510 CONTINUE 
C — DATA BLOCK S. 

C GLOBAL VARIABLE NUMBERS CORRESPONDING TO FUNCTIONS OF X AND Y. 
READ ( I5CR l , 1 200 ) f IA{ I ) , I=M20 »MM20 ) 

IF (IPNPUT.LT. 2) WRITE ( 6 , 1170 ) IP2VAR 
IF (IPNPUT.LT. 2) WRITE ( 6 , 1160 ) ( I A ( 1 1 > I =M2 0 , MM2 0 ) 

C — DATA BLOCK T. 

C VALUES OF X COMPONENTS. 

NN20=N£0U12VX-l 
IF (NN20.LE.NDRA) GO TO 520 
WRITE (6,780) 

WRITE (6,740) 

LOCPl 25 )=NN2Q 
GO TO 550 

520 READ 1 1 SCR 1 ,1210) (RA(I), I=H20 , NN20 ) 

IF ( IPNPUT.LT. 2) WRITE (6,1140) N2VX 
IF (IPHFUT.LT. 2) WRITE (6,1160) t RA( I ) , I=N20 ,NN20 ) 

C — DATA BLOCK U. 

C VALUES OF Y COMPONENTS. 

N2 1 =N20 t M2VX 
NN2i=N2i nisvr-i 
IF (NN21 .LE.NDRA) GO TO 530 
WRITE (6,760) 

WRITE (6,750) 

LOCR( 25 )=NN2 1 
GO TO 550 
530 CONTINUE 
NN20=NN21 

READ t ISCR1 ,1210) (RAID ,I=M21 ,NH21 ) 

IF (IPNPUT.LT. 2) WRITE (6,1150) N2VY 
IF (IPNPUT.LT. 2) WRITE (6,1160) ( RA( I ) , I=N21 ,NN21 ) 

540 CONTINUE 

C 

C DYNAMIC STORAGE ALLOCATION 

C 

NDV2=NDV+2 

C REAL VARIABLES. 

C X. 

LCCRI I ) = 1 
C VLB. 

LOCRl 2 ) = NDV+3 
C VUB . 

LOCR(3) = LOCR(2 KNDV2 
C SCAL. 

LOCR ( 4 )= LOCRl 3 ) +NDV2 
C AMULT. 

LOCR(5) = LOCR(4) + NDV2 
C BLU. 

LOCR ( 6 )= LOCRl 5 ) +NDVTOT 
C DELX. 

. LOCRl 7 )= LOCRl 6 ) t 4 : “NC0NA 

• L0CR(6)=L0CR(7)+NDV 

C SENS. 

LOCR( 1 5 )= LOCRl 8 ) 

C XM2V. 


COPES635 
COF'ES6?6 
COrE5537 
CDPES33B 
COPE5339 
COPE5640 
COrES-341 
COPES842 
COPES643 
COPES644 
COPES045 
C0PE5846 
COFE5Q47 
COPE5640 
C0PE5Q49 
COPES05O 
COrES651 
COPES652 
COPCSQ53 
COPES954 
COPE3655 
COPES056 
COFES657 
C0PES85S 
C0PES659 
COPESS60 
COPES66 1 
COPE 5062 
COPES06 3 
COPES064 
COPES665 
COPES066 
COrES667 
COPES66B 
COPESS69 
COPES370 
COrES371 
-COFE5972 
COPE5073 
-COPES074 
COPE5075 
COPE5076 
COPE5877 
COPE5976 
COPES379 
COPC509O 

coPEseai 
COPE 5802 
COFE5003 
COPES084 
COPES085 
COPES006 
coPcsea7 
coPEseea 
COPES309 
COPES690 
COrE5891 
COPE5092 
COFES3R3 
COPE 5894 



LOCR( 20 ) = LOCR( 15HNSVTOT 

C0PE5695 

c 

YM2V . 

COPFS396 


LOCR( 21 >=LOCRl 20 )*M2VX 

COrE5397 


LOCRl £2 )-LOCR( £1 K112VT 

C0FL3090 

c 

START OF EXECUTION STORAGE. 

C0rE5699 


LOCR( 23 )=LOCR( 22 ) 

COPCS900 

c 

INTEGER VARIABLES. 

corcspoi 

c 

IDSGN. 

COPES902 


LOCK 1 ) = 1 

COPE5903 

c 

NDSGN. 

COPES904 


LOCK 2 )=NDVTOT+1 

COPE5Q05 

c 

ICON. 

CQFE5906 


LOCK 3 ) = LOCI( 2 ) + NDVTOT 

COrES907 

c 

ISC. 

COPE 5908 


LOCK 4 ) = LOC 1(3) +HCOMA 

COPE5909 

c 

LOCX . 

COPES9IO 


LOCK 5 ) = L0CI( 4 )*2*( NDV + NCONA ) 

C0PE591 1 

c 

LOCF . 

COPE59I2 


LOCK 6 )=LOCI ( 5 ) +NXAPRX 

C0PES913 


LOCK 7 ) = LOCI( 6 ) +NF 

C0PE59I4 

c 

NSEN5Z. 

COPES915 


LOCK 1 5 ) = LOCK 7 ) 

COPES91 6 

c 

ISEN5 . 

COPE591 7 


LOCK 16 ) = LOCI( 1 5 ) + N50DJ 

COPES91 6 

c 

N5ENS . 

C0PES91 9 


LOCK 17) = LOC 1 1 ) 6 ) *N5V 

COPES920 


LOCK 16) = LOCK 17I+N5V 

COPE592I 

c 

N2VZ. 

COPES922 


LOCK 20 ) = LOCI( 10) 

C0FE592 3 


LOCK 21 ) = LOCI( 20 I+N2VAR 

COPE5R24 

c 

START OF EXECUTION STORAGE. 

CQPES925 


LOCK 23 ) = L0CI( 21 ) 

C0PE59C6 

c 

EXECUTION STORAGE REQUIREMENTS. 

COPES92 7 


NRI=MDV 

COPES9ZB 


IF (HACMX1 .GT.NRI) NRI=NACMX1 

COPES929 


NR2=3<NCON+l 2*NDV*NACMXI«(NDV2*NACMX1 )+3#NRI+12 

COPES930 


N12=NACMX1 +£*NRI+2*NDV+NCON 

COPE5931 


NR3=N5V 

COPE5932 


IF ( HSOBJ .GT.NR3 J NR3 = NSOBJ 

COPES933 


NR4=N2VAR 

C0PES934 


NR5=NP2+NP3 

COPES935 


NI5=NI2 

COPE5936 


M=NXAPRX 1 ( NXAPRX# ( NXAPRX+ 1 ) )/2 

COPE5937 


IF ( MAXTRM.LT. 3) M=MAXTFM*NXAPRX 

COPES936 


HR6=3*I»XAFPX + 6*NDV+2*NF +tt*HF 

COPES939 


NI6=NCONA + NXAPRX 

COPE5940 


NRI = (KMAXM -NPTOT)MNXAPRX+NFM ) 

C0PES941 


IF (MRI.LT.NR2) NRI=NR2 

C0PES942 


IF (KMAX.LT.O) NRI=NPTOT*f NXAPRX+NF+ 1 ) 

COPES943 


NP7=NR6+NRI 

C0PES944 


NI7=NI6+NI2 

C0PES945 

c 

STAPT OF TEMPORARY STORAGE. 

COPES946 


LOCRl 24 l = LQCR(23 1 

CCPES94 7 


LOCK 24 ) = LOCI( 23) 

C0PES94B 


IF (NCALC.EQ.2) LOCR( 24 >=LCCR< 23 ) +NR2 

C0PES949 


IF INCALC. EQ. 3) LOCRl 24)=LOCR1 23 >+NR3 

COPE5950 


IF (NCALC.EQ.4) LOCRl 24 ) = LOCR( 23 ) *NR4 

COPE5951 


IF (NCALC.EQ.5) LOCRl 24 ) = LOCRl 23 ) +NR5 

COPE5952 


IF (NCALC.EQ. 6. AND. KMAX.LT.O ) LOCRl 24 ) = LOCRl 23 J + NP6 

COPE3953 


IF (NCALC.EQ. 6. AND. KMAX.GT.O) LOCRl 24 ) = LOCRl 23 ) ♦ NR 7 

COPES954 
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C 


550 

C 

c 

c 

560 

570 

580 

590 

600 


610 


620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

.750 

760 


770 


760 

*790 

600 

810 


COPES955 

820 

C0PE5956 

830 

COPES95 7 

840 

C0PES958 

850 

COPES959 

860 

C0PES960 


COPES96 1 


COPES962 

070 

COPES96 3 


:COPES964 

880 

COPES965 

090 

COPES966 

900 

COPES967 

910 

■COPES960 


COPES969 


■COPES970 


COPES971 

920 

COPE5972 

930 

COPES973 


C0PES974 

940 


IF (NCALC.EQ.2) LOCH 24 ) = LOCH 23 ) +NI2 
IF (NCALC.EQ.5) LOCH 24 ) = LOCI( 23 )+NI5 
IF (NCALC.EQ.6.ANO.KNAX.LT.O ) LOCI( 24 ) = LOCI( 23 HNI6 
IF (NCALC.EQ.6. ANO.KMAX.GT.Q ) LOCH 24 l = LOCH 23HNI7 
TOTAL STORAGE REQUIREMENTS. 

LOCR l 25 )=LOCR( 241 
LOCH 251 = LOCH 241 

IF (NCALC.EQ.5) LOCRt 25)=LOCR( 25 )+4»NDV+8 
IF INCALC. EQ. 5) LOCH 25) = LOCI( 25 ) 4 2#NDVTOT 

IF ( IPNPUT.LT. 2 1 WRITE (6,060) LOCR( 23 ) , LOCR( 25 ) ,NDRA, LOCK 23 ) , 

1H 25 1 »NDIA 
CONTINUE 
RETURN 

FORMATS 

FORMAT ( /5X» 27HUNABLE TO READ DATA BLOCK K) 

FORMAT ( //5X ,43HDELTA-X BOUNDS FOR APPROXIMATE OPTIMIZATION 1 
FORMAT (80A1) 

FORMAT ( I5/80A1 1 

FORMAT (///5X.49H** • APPROXIMATE ANALYSIS/OPTIMIZATION INFORMATIONCOPE5975 950 
1//5X.38HNUMBER OF FUNCTIONS APPROXIMATED, NF = , I5/5X , 30HNUMBER OF COPES976 960 
2INPUT X-VECTORS, NPS = , I5/5X , 38HNUMBER OF INPUT X-F PATRS, COPES977 

3 NPFS =,I5/5X,38HX- VECTOR FROM ANALIZ, MPA = , I5/5X , 3COPE5976 

48HN0MINAL DESIGN, INOM = » I5/5X , 38HRE AO UNIT FOR X-C0PES979 970 

5VECT0RS, ISCRX = , I5/5X , 38HRE AD UNIT FOR X-F PAIRS, ISCRCOPES960 

6XF = , I5/5X, 38HPRINT CONTROL, IPAPRX = ,15 1 COPES98 ! 

FORMAT ( /5X , 38HMINIMUM APPROXIMATING CYCLES, KMIN = , 1 5/5X , 30HMAXCOPES982 
1IMUM APPROXIMATING CYCLES, KMAX = , I5/5X , 38HMAXIMUM DESIGNS USED COFES983 
2 IN FIT, NPMAX = , I5/5X , 38HN0MINAL DESIGN PARAMETER, JNOM =,C0PES964 

3I5/5X,38HX- LOCATION INPUT PARAMETER, INXLOC = , I5/5X , 38HF- LOCATIOCOPES965 
4N INPUT PARAMETER, INFLOC = , I5/5X , 38HTAYLER SERIES I.D. CODE, C0PE3986 960 

5 MAXTRM =,151 COPES967 

FORMAT ( /5X , 36HMULTIPLIER ON DELX, XFACT1 = , E 1 2 .4/5X,38HCOPES958 990 

IMULTIPLIER ON DELX, XFACT2 =,£12.4) COPE5909 1000 

FORMAT ( /5X, 27HUNABLE TO READ DATA BLOCK L) COPES990 1010 

FORMAT ( //5X , 31 HGLOBAL LOCATIONS OF X-VARIABLES 1 COPES991 

FORMAT ( /5X, 27HUNABLE TO READ DATA BLOCK Ml COPE5992 

FORMAT ( //5X , 29MGL0BAL LOCATIONS OF FUNCTIONS) COPE5993 

FORMAT ( /5X , 27HUNABLE TO READ DATA BLOCK N) C0PES994 

FORMAT ( //5X, 25HX- VECTORS INPUT FROM UNIT, 15) COPES995 

FORMAT ( /5X , 27HUNABLE TO READ DATA BLOCK 0) COPES996 

FORMAT ( ////5X, 25HX-F PAIRS INPUT FROM UNIT, 15) COPES997 1020 

FORMAT ( //5X ,6HNUMBER , 15 ,5X ,6HDESIGN , 15 ) COFES995 1030 

FORMAT ( /5X ,6HX- VECTOR 1 C0PES999 

FORMAT ( /5X» 15HFUNCTION VALUES) COPEIOOO 1040 

FORMAT l/5X,27HUNABLE TO READ DATA BLOCK T) COPE 1 00) 1050 

FORMAT 1 /5X, 27HUNABLE TO READ DATA BLOCK U) COPE1002 (060 

FORMAT ( /5X»50HCONMIN PARAMETERS (IF ZERO, CONMIN DEFAULT HILL OVECOPEIOOl "l070 
1R-RIDE )//5X »6HIPRINT , 2X , 5HITMAX ,3X,6HICNDIR, 3X »5HNSCAL , 3X ,4HITRM , 3COPE 1 004 
2X , 6HLIN0B J , 2X , 6HNACMX 1 , 3X , 4HNFDG/8I6 ) COPE 1005 

FORMAT (/6X,4HFDCH,I2X,5HFDCHM,1 1 X , 2HCT , 14X ,5HCTMIN/1X,4( 2X,E14 . 5 JCOPE1 006 1060 

1 //6X , 3HCTL * 1 3X , 6HCTLMIH, 1 0X ,5HTHETA, 1 1 X » 3HPHI/1 X ,4( £X»E14 . 5 )//6X*6C0PE1 00 7 
2HDELFUN, 1 OX »6HDABFUN , 1 OX ,6HALPHAX , 1 OX ,6HAB0BJ1/1 X ,4( 2X*E14. 5 1 1 COPEIOOO 

FORMAT (//5X, 54HREQUIPED STORAGE IN ARRAY RA EXCEEDS AVAILABLE STOCOPE1009 
1RAGE) COPE 1010 J090 

FORMAT (/5X.27HUNABLE TO READ DATA BLOCK FI COPE1011 -1100 

FORMAT ( /5X , 27HUNABLE TO READ DATA BLOCK G) COPE1012 1110 

FORMAT (//5X,54HREQUIRED STORAGE IN ARRAY IA EXCEEDS AVAILABLE STOCOPE1013 1120 
1 RAGE ) COPE 1014 1130 


FORMAT l /5X.27HUNABLE TO READ DATA BLOCK I) 
FORMAT I /5X , 2 7IUJHABLE TO READ DATA BLOCK PI 
FORMAT (/5X,27HUNABLE TO READ DATA BLOCK Q) 
FORMAT l/5X,27MUMABLE TO READ DATA BLOCK R) 


corttoi 5 
COPE 1016 
CO n E 1 0 1 7 
COPE 1018 


FORMAT (////5X,39H* • ESTIMATED DATA STORAGE REQUIREMENTS//15X,4HRC0PE1 01 9 
1 EAL, 26X, 7HINTEGER/5X ,27HINPUT EXECUTION AVAI LABLE , 5X,27H INPUT ECUPE1020 
EXECUTION AVAILABLE/19, 2110, 2X, 31101 C0PE1021 

FORMAT ( 1 H 1 ,4X,27HCARD IMAGES OF CONTROL DATA///5X,4HCAR0 , 20X, 5HIMCOPE 1 022 
1 AGE ) COPE t 023 

FORMAT MHO) COPE 1024 

FORMAT ( 18 , 1H 1 , 2X* BOA 1 1 COPE1025 

FORMAT ( /5X,40HTOTAL NUMBER OF CONSTRAINED PARAMETERS =,I5) COPE10C6 

FORMAT (//5X,26HCALCULATION CONTROL, NCALC/5X , 5H VALUE , 3X , 7HMEANINGCOPE 1027 
1/7X.1H1 , 5X , 1 5H5INGLE ANALYSIS/7X . 1 H2 , 5X, 1 2HOPTIMIZATION/7X , 1 H3 , 5X , COPE 1 020 
21 1 H5ENSITIVITY/7X » 1 H4 , 5X » 2 7HTW0- VARIABLE FUNCTION SPACE/7X, 1 H5 , 5X, COPE1 029 
31 9H0PTIMUM SEN5ITIVITY/7X, 1H6 > 5X , 24H APPROXIMATE OPTIMIZATION) COPE 1030 
FORMAT ( 2110, F10. 2 1 COPE1031 

FORMAT ( //5X , 1 6HDESIGN VARIABLES/1 1 X,5HD . V. , 5X,6HGL0BAL,4X» 1 1 HMULCOPE 1 032 
1 TIPLYING/5X . 2HI0 , 5X , 3HNO . , 5X» 6HVAR . NO . ,5X,6HFACT0R ) COPEI033 

FORMAT 1 2I7,5X,I5,6X,E12.5) COPE1034 

FORMAT 1 5X» 1615) COPE 1 035 

FOPMAT ( /5X* 34HPRINT CONTROL, IPSENS = , I5/5X , 34HNUMBER COPE1036 

1 OF SENSITIVITY" OBJECTIVES = , I5//5X , 53HGLOBAL NUMBERS ASSOCIATED WrC0P£t037 
2TH SENSITIVITY OBJECTIVES) COPE1038 

FORMAT ( 1H1 ,//////, 5X,47HCCCCCCC OOOOOOO PPPPPPP EEEEEEE SCOPE1039 

1 SSSSSS/5X,47HC 0 0 P P E S /5X ,47C0PE 1 040 


2HC 

3 

4 

5 

6 ) 


0 0 P P E S /5X»47HC 

PPPPPPP EEEE S5SSSSS/5X , 47HC 0 

S/5X , 47HC 0 OP 

S/5X , 47HCCCCCCC OOOOOOO P EEEEEEE 


R A M//26X , SHF 
S) 


OCOPE104) 
0 P COPE 1 042 
E COPE 1 043 
SS5SSSSCOPE 1 044 
COPE I 045 
0 R//8XC0PE 1 046 
COPE 1 047 
COPE 1 048 
COPE 1049 
COPE 1 050 
COPE 1 051 


FORMAT ( /////I 4X > 29HC ONTROL PROG 
1 ,41 HE NGINEERING SYNTHESI 
FORMAT (/////24X, 9HT I T L E//5X,20A4) 

FORMAT ( IH1 ,4X»6HTITLE*/5X» 20A4 ) 

FORMAT (///5X, 1 9HC0NTR0L PARAMETERS ; /5X , 42HCALCULATI0N CONTROL, 

1 NCALC = , I5/5X ,42HNUNBER OF GLOBAL DESIGN VARIABLES, 

2NDV = , I5/5X » 42HMUMBER OF SENSITIVITY VARIABLES, NSV = , I5/5X ,42COPE 1 052 
3HNUMBER OF FUNCTIONS IN TWO-SPACE, N2VAR = , I5/5X, 42HNUMBER OF APPCOPE 1 053 
4ROXIMATING VAR. NXAPRX = , I5/5X , 42H INPUT INFORMATION PRINT COOCOPE1054 

5E , IPNPUT =,I5/5X,42HDEBUG PRINT CODE, IPDBG C0PE1055 

6=,I5) COPE 1 056 

FORMAT (////5X.27H* # SENSITIVITY INFORMATION) COPE 1057 

FORMAT ( /I 4X ,6HGL0BAL»4X , 7HN0MINAL/5X , 6HNUMBER , 2X ,8HVARIABLE ,4X, 5HC0PE l 058 
1 VALUE , 6X , 1 8H OFF -NOMINAL VALUES) COPE1059 

FORMAT (5X»I4»I6»5X,E1 2 .5, 1X»5E1 1 .4) COPE1060 

FORMAT ( 35X,5E 11.4) COPE 1061 

FORMAT ( 4F 1 0 . 2 , 1 0A4 ) COPE1062 

FORMAT ( ////5X, 2BH# * OPTIMIZATION INFORMATION//5X , 35HGLOBAL VARIACOPE 1 063 
1BLE NUMBER OF OBJECTIVE , 1 OX , 1 H= , I5/5X ,46HMULTIPLIER (NEGATIVE INDICOPE1Q64 
2CATES MINIMIZATION) =,EJ2.4) COPE1065 

FOPMAT ( /5X , 27HDESIGN VARIABLE INF0RMATI0N/5X »50HNON-ZERO INITIAL COPE1066 
1 VALUE WILL OVER-RIDE MODULE INPUT/5X , 5HD . V . , 5X , 5H LOWER , 1 OX , 5HUPPECOPE 1 067 
2R , 9X» 7HINITIAL/5X, 3HNO. , 7X , 5HB0UHD , 1 0X , 5HBOUND , 1 0X , 5HVALUE , 1 OX , 5HSCOPE 1 068 
3CALE ) COPE 1 069 

FORMAT ( 18 , 4X * E 1 2 . 5 » 3X » E 1 2 . 5 * 3X * E 1 2 . 5 * 3X , E 1 2 . 5 , 5 A4 ) CUPE1070 

FORMAT ( 18, 17,2I6,5X, El 2 .5»3X,E12.5,3X,E12.5,3X,E12.5) COPE1071 

FORMAT ( //5X , 22HCOHSTRAINT INFORMATION) COPE1072 

FORMAT r /5X , 9HTHERE ARE,I3,16H CONSTRAINT SETS) COPE 1073 

FORMAT ( 1 1 X ,6HGL0BAL , EX »6HGL0BAL , 2X 1 6HLINEAR 1 6X , 5H LOWER ,6X , 1 3HNORMCOrE1 074 
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1ALIZATI0N,6X,5HUPPER,6X,13HH0RMALIZATI0N/'6X,2HID,3X,6HVAR. 1 , 2X.6HCOPE 1 075 
2VAR . 2 »9X, CHID , 8X» 5HB0UND » 9X, 6HFACT0R , 1 OX , 5HB0UND , 9X. 6HFACT0R ) COPE1076 C 
1190 FORMAT (//5X.9RHGL0BAL VARIABLE NUMBER CORPESPONDING TO X, H2VX =, COPE 1077 
1I5//5X,20HVALUES OF X-VARI ABLE l COPE1076 

1150 FOPMAT ( //5X.99HGL08AL VARIABLE NUMBER CORRESPONDING TO Y, N2VY =,COPE1079 
1I5//5X.C0HVALUE5 OF Y-VARIABLE ) COPE 1 000 

1160 FORMAT (3X.5E12.9) COPE1O0I 

1170 FORMAT t////5X,51H* » TWO-VARIABLE FUNCTION SPACE MAPPING INFORMATCOPE 1 082 C 
I ION//5X.23HPRINT CONTROL. IP2VAR = , I5//5X .5CHGL0BAL VARIABLE NUMBECOPE 1 063 C 
2RS ASSOCIATED WITH F t X , T ) . MCVZ) COPEIO09 C 

1180 FORMAT <5Xt10I5) COPE1O05 

1190 FORMAT (20A9) COPE 1086 C 

1200 FORMAT (0110) COPEI087 C 

1210 FORMAT (6F10.2) COPE1O0S 10 

1220 FORMAT 1///5X,26H« * * INPUT ERROR, NCALC = , 12 , 2X ,MHIS LT.O OR GTCOPE1O09 

1.6 PROGRAM TERMINATED • * * ) COPE 1 090 

END COPE 1091 

SUBROUTINE COPE02 ( ARRAY , RA , IA .NARRAT ,NDRA , NDIA ) COPE1092 C 

COMMON /CNMN1/ DE LFUN.DABFUN , FDCH , FDCHM ,CT ,CTMIN , CTL ,CTLMIH , ALPHAXCOPE 1 093 
1 , ABOBJ1 p THETA , OBJ ,NDV, NCON , N5IDE i IPRINT ,NFDG , N5CAL » LINOBJ , ITMAX .ITCOPE1099 
2RM , ICNDIR , IGOTO,NAC , INFO , INFOG , ITER COPE 1095 

COMMON /C0PE53/ SGNOPT , NCALC , IOBJ , NSV , NSOBJ , NCONA ,N2VX .M2VX.N2VY ,MCOPE 1 096 
12VY»N2VAR,IPSENS, IP2VAR , IPDBG ,NACMX1 . NDVTOT , LOCP( 25) , LOCK 25 ) , ISCRCOFE I 097 
21 ,ISCR2 .NXAPRX.NP5.NPFS , NPA ,NF , INOM >IPAPRX,KMIN,KMAX,XFACT1 ,XF ACT2COPE 1 090 
3 • NANS ► NAN3 » NPMAX , NPTOT , JNOM , MAXTRM COPE! 099 

DIMENSION ARRAY! NARRAY ) , RA(NDRA) • IAINOIA) COPEIIOO 

C *#*0«*H**«W»«»M*«t*»«*#* ««**««#**« tM»«COPE I 101 

C ROUTINE TO CONTROL OPTIMIZATION. COPE1102 

C BY G. N. VANDERPLAAT5 MAR., 1973. COPE 1 1 04 

C NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. COPEI105 

C COPE 1 106 C 

C ARRAY DIMENSIONS COPE 1 1 07 C 

C COPE 11 00 C 

NN1=NDV + 2 COPE 11 09 C 

NN2 = 2#NDV + NCON COPE 1110 C 

NN3=NACMX1 COPE 11 11 C 

NU9=NN3 COPE 111 2 C 

IF (NDV.GT.NN9) NN9=NDV COPE 1113 

NN5=2#NN9 COPE 1114 

NN6=NDVT0T COTE 1115 C 

NN7=NCONA COPE11I6 C 

C COPE 1117 C 

C ARRAY STARTING LOCATIONS COPE 1 It 0 C 

C - - - COPE 1119 

C X, VLB, VUB, DF, A, S, G! , G2, C, B, 5CAL, ISCi IC» MSI COPE 1 1 80 

NX=1 COPE 1121 

NVLB-LOCRt 2 ) COPE 11 22 

NVUB=LOCR(3) COPE 112 3 

NNSCAL=LOCR(9) COPE 11 29 

NDFsLOCR(23) COPE1125 

MG=NDF+MM1 COPE 11 26 

NA=NG+NN2 COPE 1127 

NS=NA*NN1*NN3 COPE 1128 

NG1=NSUIN1 COPE1129 10 

NG2=NGMNN2 COPE1I30 

NC=NG2+NN2 COPE 11 31 

NB=NC+HN9 COPE 11 32 

NISC=L0CII9) COPE 1133 

NIC=LOCI(23) COPE l 1 39 


NNS l =HIC*NN3 

AMULT, BLU, ID5GN, N5DGN, ICON 
NAMULT=LOCP(5) 

NBLU=LOCR(6 1 
NIDSGN=1 
NNDSGN-LOCI ( 2 ) 

NICCN= LOCK 3 ) 


COrEl 135 
CUPE1136 
COPE1137 
COPE U 38 
COPE 1 1 39 
COPE 1 l AO 
COPE 1191 


OPTIMIZATION COPE 1 193 

- COPE 1 I 99 

IGOTO -0 COPE 1 1 95 

CALL CONMIN ( X, VLB , VUB.G , SCAL ,DF , A , S , G1 , G2 , B ,C , I5C , IC ,N51 >NI ,N2,H3COPEU96 
#,N9,H5) COPE 1 197 

CONTINUE COPE1190 

CALL CONMIN { R A( NX ) ,R A( NVLB ) ,R A( NVUB 1 ,RAl HG ) ,RAINNSCAU ,RA( NDF ) ,RACOrE 1 1 99 
UNA ) ,PA(N5) ,RA(NG1 ) ,RA( NG2 ) ,RA( NB ) ,RA( NC ) , IA( NISC ) , I A( NIC ) , IA( NM51 COPE1 150 
2 ) i NN 1 , MN2 , NN3 , NN9 , NN5 ) COPE 1 1 51 

ANALIZE. COPE 1152 

CALL COPE 0 3 ( ARRAY , NARRAY ,RAl NX ) ,RA( NG ) , RA( NAM'JLT ) ,PA( NDLU ) , I At NIDCOPE 11 53 
1 SGN ) , IA( NNDSCN ) , IA( NICCN),NN1 ,NN2 ,NN6 , HN7 , ITER , OBJ ) COPE 11 59 

IF (IGOTO. GT.O) GO TO 10 COPE1I55 

RETURN COTE 1 1 56 

END COPE 1157 

SUBROUTINE COPE03 ( ARRAY , NARRAT, X,G, AMULT, BLU, ID$GN,NDSGN, ICON, NNJCOPE 1 156 
1 , NNC , NNS * NN 7 , ITER , OBJ ) COPE 1 159 

COMMON /CCFES3/ SGNOPT .NCALC . IOBJ , NSV , NSOBJ , NCONA ,N2VX ,M2VX ,N2VY .MCOPE1 160 
1 2VY .N2VAR , IPSENS , IP2VAR , IPDBG. NACMX1 , NDVTOT, LOCRt 25 ) , LOCK 25 ) , ISCRCOPE 11 6 1 
21 , 15CP2 iNXAPRX.NPS ,NPFS , NPA . NF , INOM , IPAPRX . KMIN , KMAX ,XFACT I .XFACTCCOPE1 162 
3, HAN2,NAN3, NPMAX, NPTOT , JNOM , MAXTRM COPE 1 163 

DIMENSION ARRAY I NARRAY ) . X ( NM 1 ) , G(NN2 ) , AMULTI NN6 ) , BLU(9,NN7) COPE1I69 
DIMENSION IDSGNt NN6 ) , NDSGNI NN6 ) , ICCNIHN7) COPE 1165 

BUFFER BETWEEN CONMIN AND COPES FUNCTION EVALUATION. COPE 1167 

»»*»><"«« ***** ***« * *********************** **H******COrE 1 160 
BY G. N. VAHDEPPLAATS MAR., 1973. COPE 1 1 69 

NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. COPE I 1 70 

INITIAL ANALYSIS HAS BEEN DONE. IF ITER = 0 , GO EVALUATE COPE 1171 

OBJECTIVE AND CONSTRAINTS. COPE 1 1 72 

IF fITER.EQ.O) ITER1 "0 COPE 1173 

IF (ITEP-LT.I) GO TO 90 COPE1179 


PRINT OUTPUT IF DEBUG CONTROL IS TURNED ON 

DEBUG OUTPUT AS RERUIPEO . 

IF ( IPDBG. LT. 1 ) C-0 TO 20 

IF ( ITER. EQ.ITEP1 .OR. ITER. LE. 1 ) GO TO 20 

XSAV2=X( 1 ) 

XI 1 )=X5AV1 
N5 ~ LOCR ( 5 ) 

M2 = LOCI (2 ) 

DO 10 1=1 .NDVTOT 
N=HDSSM( I ) 

M=IDS^N( I ) 

IF (N.GT.O) ARRAY(M) = X( N )*AMULT( I ) 

CONT IN'JE 

ICAIC=3 

NAN3=NAN3« 1 

CALL ANALIZ ( ICALC ) 

WRITE (6,70) 

ITER 1 =1 TEP 


COPE 1 I 76 
-COPE 1177 
COPE1 I 70 
COPE t 1 79 
COPCI 100 
COPE! 161 
COPE 1 1 82 
corn 103 

COPE I 169 
COPE1105 
COFE1 106 
COPE 1 107 
COPE 1 160 
COPEU09 
COPE 1190 
COPE 1191 
COPE 1 192 
Cr' 7 E1193 
COPE 1 1 99 
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X(1)=XSAV2 COPE 11 95 

20 CONTINUE C0FE1196 

c COPE 1 1 97 

C TRANSFER DESIGN VARIABLES TO USER ARRAY COPE1190 

C - COPE 1 1 99 

N5=LOCR(5) COPE1200 

M2=LOCI(2) COPE l 20 1 

DO 30 1=1 ,NDVTOT COPE1202 

N=NDSGN( I ) COPE1203 

H=IDSGN(I) COPE 1 2 04 

IF IN. GT.O) ARRAY! M)=XfN)#AMULT( I ) COPE1205 

30 CONTINUE COPE 1206 

C — COPE t 207 

C ANALIZE COPE 1200 

C COPE 1 209 

ICALC = 2 COPE 1210 

NAN2=NAN2+1 COPE 1211 

CALL ANALIZ (ICALC) COPE l 21 2 

C SAVE XII). COPE 1213 

XSAV1=XM) COPE 121* 

C - - — COPE1215 

C OBJECTIVE COrE1216 

C — COPE 1217 

*0 CONTINUE COPE 1210 

OBJ=-SGNOPT#ARRAY( IOBJ ) COPE 1 2 1 9 

IF ( NCONA . EQ . 0 ) RETURN COPE1220 

C COPE 1221 

C CONSTRAINT VALUES COPE 1222 

c — - - -COPE 1 223 

J=1 COPE 1 22* 

N=0 COPE1 225 

DO 60 1 = 1, NCONA COPE 1226 

C PARAMETER IDENTIFIER. COPE1227 

NN=IC0Nm COPE 1 220 

CC=ARRAY( NN) COPE1229 

C LOWER BOUND. COPE 1230 

BB=BLU( 1.1) COPE 1231 

IF (BB.LT.-1 .OE+15) GO TO 50 COPE1232 

C NORMALIZATION FACTOR. COPE 1233 

Cl =BLU( 2*1) COPE 1 23* 

C CONSTRAINT VALUE. COPE 1235 

N=NM COPE 1 236 

G(N ) = ( BB-CC )/C1 COPE1237 

C UPPER BOUND . COrE123fi 

50 BB=BLU( 3,1) COPE1239 

C NORMALIZATION FACTOR. COPE12*0 

C 1 =BLU( * » I ) COPE1 2*1 

. J=J+* COPE 1 2*2 

IF fBB.GT. 1 .OEMS) GO TO 60 COPE12*3 

C CONSTRAINT VALUE. COPE 12** 

N=N+ 1 COPE 12*5 

G( N ) = ( CC-BB )/C1 C0PE1 2*6 

60 CONTINUE COPE 12*7 

RETURN COPE 12*0 

C COPE I 2*9 

_C - - COPE 1250 

IC FOPMATS COPE 1251 

C COPE I 252 

70 FORMAT ( 1HI ) COPE1253 

END COPE 125* 


SUBROUTINE COPEO* 1 ARRAY . NARRAY ,SENS ,N5ENSZ , ISENS , NSENS , TEMP , NNQ ,NCOPE 1 255 


1N9.NN1 0 , R A , I A , NDRA , NDIA ) COPE1256 

COMMON /COPES 1 / TITLE! 20 ) COPE1257 

COMMON /C0PES3/ SGNOPT ,NCALC , IOBJ ,NSV , NSODJ , NCONA ,N2VX,M2VX ,N2VT , MCOPE 1 258 
1 2VY .N2VAR » IPSENS » IP2VAR , IPDBG.NACMX1 .HDVTOT , LOCRI 25 > , LOCK 25 ) , ISCPCOrE 1 259 
21 » I5CP2 , NXAPRX »NP5 , NPFS .NPA ■ NF , INOM , IPAPRX »KMIN»KMAX,XFACT1 ,XFACT2COPE 1 260 
3 , NANS , N ft W 3 , NPMAX , NPTOT , JNOM , MAXTRM C OrE 1 26 1 

COMMON /CNMN1 / DE LFUN ,DABFUN, FDCH , FDCHM , CT ,CTNIN,CTL ,CTLMIN , ALPHAXCOPE 1 262 
1 , ABOBJ 1 , THETA. OBJ ,NOV,NCON ,NSIDE » IPRINT , NFDG i NSCAL, LINOBJ * UMAX, ITCOPE 1263 
2PM, ICNDIR , IGOTO , NAC , INFO , INFOG , ITER COPE 1 26* 

DIMENSION ARRAY! NARRAY), SENSINN8), NSENSZI NN9 ) , ISENS(NNIO), N5ENC0PE1 265 
1SINN10), TEMPI I ), RA(NDRA), IA(NDIA) COPE1266 

c #WWW#*# ***#**«******##«#»»*** W##*«*»»#*#»M**W*******COPE1 £67 

C ROUTINE TO PROVIDE SENSITIVITY INFORMATION WITH RESPECT TO COPE1268 

C A PRESCRIBED SET OF OESIGH VARIABLES. COPE1269 

C ####*«#*#*# #*##**#* mw tt* »««**«* «««««« tflCOPE 1270 

C BY G. N. VANDERPLAATS MAR., 1973. COPE1271 

C STORE OUTFUT ON UNIT ISCR1 . COPE1272 

REWIND ISCP1 COPE1273 

IF (IPDBG.LT.il IPR INT=0 COPE127* 

C — COPE 1 275 

C WRITE BASIC INFORMATION ON UNIT ISCR1 COPE 1276 

C — -COPE 1 277 

C TITLE. COPE 1278 

WRITE ( ISCR 1 , 330 ) C TITLE (I) , 1= 1 , 20 > COPE1279 

C NCALC, NSV , NSOBJ COPE1260 

WRITE ( ISCR 1 , 3*0 ) NCALC , NSV , NSOBJ C0PEI281 

C ISENS(I),I = 1 »HSV. COPE 1 202 

WRITE I ISCR1 , 3*0 ) ( ISENSt I ) ,1=1 ,NSV> COPE1283 

C NSENSZI I ), 1 = 1 , NSOBJ. COPE128* 

WRITE ( ISCR 1 , 3*0 ) (NSENSZI I ) ,1 = 1 .NSOBJ ) COrE1285 

JCALC = 3 COPE 1 286 

ICALC=2 COPE 1 287 

NDVSAV=NOV COPE 1208 

C COPE1289 

C «####*#### NOMINAL ««**#****#C0PE1290 

c COPE 1291 

IF (NCALC. EQ. 5) GO TO 10 COPE1292 

C STANDARD SENSITIVITY. COPE1293 

NAN2=NAN2+1 COPE129* 

CALL ANALIZ (ICALC) C0FE1295 

IF (IPSENS. GT.O) NAN3=NAN3+1 COPE1296 

IF (IPSENS. GT.O) CALL ANALIZ (JCALC) COPEI297 

GO TO 130 COPE 1298 

10 CONTINUE COPE 1 299 

C OPTIMUM SENSITIVITY. C0PE1300 

C SAVE X, VLB, VUB AND SCAL IN TEMPORARY STORAGE. COFE1301 

N=**NDV*e COPE 1 302 

L=LOCR( 2* ) COPE 1 303 

DO 20 1=1 ,N COPE1 30* 

RAl L ) =RA( I ) COPE 1 305 

20 L=L+ 1 COPE1306 

C SAVE IDSGN AND NDSGN IN TEMPORARY STORAGE. COPE 1307 

N=2«NDVTOT COPE 1 308 

L=I.OCI( 2* ) COPE1309 

DO 30 1 = 1 »N COPE 1310 

1 IA( L ) = IA( I ) COPE 1311 

30 L=L+ 1 COPE1312 

C SHIFT DESIGN VARIABLE INFORMATION IF ANY SENSITIVITY VARIABLE IS COPE1313 

C ALSO A DESIGN VARIABLE. COPE13I* 
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NDV2=NDV*2 

C0PE1315 


DO 120 1=1, N 


COPE 1 375 


DO 90 1=1, HSV 

C0PE1316 


IA(I)=IA(U 


COPC1 376 

c 

GLOBAL SENSITIVITY VARIABLE LOCATION. 

COPE1317 

120 

L=LM 


COPE 1 377 


N=ISENS(I) 

COPE 1318 

130 

CONTINUE 


C0rC1370 

c 

IS THIS ALSO A DESIGN VARIABLE. 

C0PE131 9 

C 



COPE 1 379 


M2=LOCI( 2 ) 

C0PE1 320 

C 

VPITE NOMINAL RESULTS ON UNIT ISCR1 


COPE 1 380 


00 40 J=1 iHDVTOT 

COFE1321 

C 



—COPE 1381 


L=IA(J) 

COPE 1322 

C 

SEMSd.D. 


COPE 1382 


IF (L.EQ.N) GO TO 50 

C0PE1323 


M=1 


COPE13S3 

40 

M2=M2* 1 

COPE1324 


DO 140 1=1, NSV 


COPE 1 384 

C 

SENSITIVITY VARIABLE IS NOT A DESIGN VARIABLE. 

COPE 1325 


TEMP(I)=SENS(M> 


COTE! 385 


GO TO 90 

COPE1326 

140 

M=M+NSENS(I) 


COPC13C6 

50 

CONTINUE 

C0PE1327 


WRITE ( ISCR1 , 350 ) ( TEMPI I ) , 1=1 ,MSV ) 


COPE 1 307 

C 

SENSITIVITY VARIABLE IS ALSO A DESIGN VARIABLE. 

C0PE1328 

c 

SENSITIVITY OBJECTIVES, OBJZ. 


COPE 1 300 


NDV=NDV-1 

C0PE1329 


00 150 1=1 ,NSQBJ 


COPE 1 309 


IDV=IA(M2) 

COPE1330 


M=N5EN5Z(I) 


COPE 1390 

c 

ELIMINATE THIS DESIGN VARIABLE AND REDUCE HIGHER NUMBER DESIGN 

C0PE1331 

150 

TEMPI IJ=ARRAY(M) 


COPE 1 391 

c 

VARIABLES BY ONE. 

COPE1332 


WRITE 1 ISCR1 ,350 ) ITEMPU ) , 1=1 »NSOBJ ) 


COPE 1392 


M2=LOCI(2) 

COPE1333 

c 



—COPE 1393 


00 70 J=t,NOVTOT 

CQPEt 334 

c 

««***#***# SENSITIVITIES 

K##*KMK**COPEt 394 


IF ( IA( M2 ) .NE. I0V ) GO TO 60 

COPE1335 

c 



— -COPE1 395 


I A t M2 )=0 

COPE1336 


NSVAL1 =0 


COPE 1396 

c 

SET DESIGN VARIABLE VALUES TO SENSITIVITY VARIABLE VALUE. 

C0PE1337 


DO 320 11=1 »NSV 


COPE 1397 


K=IA( J) 

COPE 1338 

c 

GLOBAL LOCATION OF SENSITIVITY VARIABLE. 


CQPEt 398 


M5=LOCR(5)+J-1 

COPE1339 


ISENSV=ISENS(II) 


COPE 1399 


ARRAYtK )=ARRAY(N)#RA(M5) 

COPE1340 

c 

NUMBER OF SENSITIVITY VARIABLES, NSEMSV. 


COPE1400 

60 

CONTINUE 

COPE 1341 


N5ENSV=N5ENS( II ) 


COPE 1401 


IF ( IAt M2 ) .GT. IDV ) IA( M2 )=IA( M2 )-l 

COPE1342 

c 

HRITE ISENSV AND NSENSV-1 ON UNIT ISCR1. 


COPE1402 

70 

M2=M2M 

COPE 1343 


NSENSI=NSCNSV-1 


C0PE1403 


IF ( IDV. EQ. NOV ) GO TO 90 

COPE1344 


HRITE ( ISCR1 ,340 ) ISENSV, NSENSI 


COPE 1404 

C 

SHIFT X, VLB, VUB AND SCAL. 

COPE 1345 


IF INSENSV . LE . 1 ) GO TO 320 


COPE 1405 


DO 80 J=IDV,NDV 

COPE 1346 


ID 1 =0 


COPE1406 

C 

X. 

COPE1347 


IF (NCALC.NE.5) GO TO 210 


COPE1407 


RA(J)=RA(JM ) 

COPE 1348 

c 

IS THIS SENSITIVITY VARIABLE ALSO A DESIGN VARIABLE. 


COPE1408 

C 

VLB. 

COPE1349 


N0V=N0VSAV 


COPE1409 


K= J+NDV2 

COPE 1350 


DO 160 1=1 ,NDVTOT 


COPE1410 


RA(K)=RA(K+1 ) 

COPE 1351 


JJ=I 


COPE141 1 

C 

VUB. 

COPE 1352 


IF (IAt I J.EQ. ISENSV) GO TO 170 


COPE 1412 


K=K*NDV2 

COPE 1353 

160 

CONTINUE 


COPE 1413 


RA(K)=RA(K+1 ) 

COPE 1354 

c 

ISENSV IS NOT A DESIGN VARIABLE. 


C0PE1414 

c 

SCAL. 

COPE 1355 


GO TO 210 


COPE 141 5 


K=K+NDV2 

COPE1356 

170 

CONTINUE 


COPE 1416 

80 

RA(K)=RA(K+I ) 

COPE 1357 

c 

ISENSV IS A DESIGN VARIABLE. MODIFY OPTIMIZATION INFORMATION. 

COPE 1417 

90 

CONTINUE 

COPE 1356 


NDV2=NDV+2 


COPE 1418 


NAM2=NAN2+1 

COPE1359 


NDV=N0V-1 


C0PE1419 


CALL ANALIZ ( ICALC 1 

COPE 1360 

c 

SAVE X, VLB, VUB AND SCAL FOR THIS DESIGN VARIABLE AND 

SHIFT 

COPE1420 


IF (NDV.LE.O) GO TO 100 

COPE 1361 

c 

REMAINING VARIABLES. 


COPE 1421 


CALL COPE02 ( ARRAY, RA, IA,NARRAY,NDRA,NDIA ) 

COPE 1 362 

,c 

SAVE. 


COPE1422 

' 1 00 

CONTINUE 

COPE 1363 


M2=LOCI(2)+JJ-1 


COPE1423 


IF ( IPSENS.GT . 0 ) NAN3=NAN3 + 1 

COPE 1364 


ID1 =IA( M2 ) 


COrE 1 424 


IF (IPSENS.GT. 0) CALL ANALIZ (JCALC) 

COPE 1365 


SAVX=RA( ID 1 ) 


COPE 1425 

c 

PUT X, VLB, VUB AND SCAL BACK. 

COPE 1366 


K=ID1 *NDV2 


COPEI4C6 


L=L0CR(C4) 

COPE1367 


SAVL=RA( K ) 


COPE 1 427 


M=4*N0V5AV*B 

COPE1368 


K=K*NDV2 


COPE 1428 


DO no 1 = 1 ,U 

COPE 1369 


SAVU=RA(K) 


COPE 1429 


PA( I )=RA( L ) 

COPE 1 370 


K=KMJDV2 


COPE 1430 

niO 

L=LM 

COPE1371 

! 

SAVS=RA(K) 


C0rE1431 

c 

PUT IDSGN AND NDSGN BACK. 

COPE 1 372 

c 

SHIFT 


COPE1432 


H=2#UOVTOT 

C0rci373 


IF (101 .GT.NDV) GO TO 190 


COPE 1433 


L=LOCI ( 24 ) 

COPE 1374 


do ieo 1=101 »MDV 


COPE143-* 
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t 

! 


I 


RA(I)=RA(IM J 
K=I*M0V2 
RA(K)=RA(KM J 
K=K*NDV2 
RACK J=RA(K 4 1 ) 

K=K+NDV2 

fflO RACK )=RACK + t I 
190 CONTINUE 
C MODIFY NOSGN. 

M2=L0CI( 2 ) 

DO 200 1=1 iNOVTOT 
IF ( IACM2 ) .EQ.ID1 ) IA(M2)=0 
IF ( IACM2 ) .GT.ID1 ) I AC M2 )=IA(M2 )-1 
200 M2=M2+1 

210 CONTINUE 

C - - - 

C VARY THE VALUE OF THE SENSITIVITY PARAMETER 

C 

NSVAL1 =NSVAL1 +1 

NSVALN=NSVAL1 

DO 280 JJ=2 iNSENSV 

NSVAL1 =NSVAL1 *1 

ARRAYC ISENSV)=SENS(N5VAL1 ) 

C WRITE SENSCI.J) ON UNIT ISCRI. 

WRITE (ISCRI ,3501 SENSCNSVALI) 

C ANALIZE. 

IF (NCALC. EQ. 5) GO TO 220 
C STANDARD SENSITIVITY. 

NAN2=NANZ+1 

CALL ANALIZ (ICALC) 

IF (IPSENS.GT.O) NAN3=NAN3M 
IF (IPSENS.GT.O) CALL ANALIZ (JCALC) 

GO TO 260 
220 CONTINUE 
C OPTIMUM SENSITIVITY. 

IF (NDV.EQ.NDVSAV) GO TO 240 

C SET LINKED DESIGN VARIABLE VALUES TO PRESCRIBED VALUE 

M2=LOCI(2) 

DO 230 1=1 jNDVTOT 
IF (XA(M2 ).NE. 0) GO TO 230 
L=IA( I ) 

M5=LDCR( 5 )*I-1 

ARRAY( L )=ARRAY( ISENSV )*RA( M5 ) 

230 M2=M2*J 

240 CONTINUE 

NAN2=NAN2M 

CALL ANALIZ (ICALC) 

. IF CNDV.LE.O) GO TO 250 

CALL COPE02 ( ARRAY ,RA , IA ,NARRAY ,NDRA ,NDIA ) 

250 CONTINUE 

IF (IPSENS.GT.O) NAN3=NAN3+1 
IF (IPSENS.GT.O) CALL ANALIZ (JCALC) 

260 CONTINUE 

C 

C WRITE SENSITIVITY RESULTS ON UNIT ISCRI 

.C 

-C OBJZ. 

DO 270 1=1 tNSOBJ 
M=NSENSZ( I ) 

270 TEMPI I )=ARRAY(MI 


COPE1435 
COPE 1436 200 

COPE1437 
COPE 1436 
COPE 1439 C 
COPE1440 
COPE 144 1 
COPE 1 442 
COPE 1443 
COPE 1 444 
COPE 1 445 
COPE 1 446 
COPE 1447 
COPE 1 448 
COPE 1449 
•COPE 1450 
C0PE1451 
•COPE 1 452 290 

COPE1453 
COPE 1 454 
COPE 1455 
COPE 1 456 
COPE 1 457 
C0PE1458 
COPE1459 
COPE 1 460 300 

COPE1461 C 
COPE1462 
COPE1463 
COPE1464 
COPE 1 465 
COPE 1 466 310 

COPE 1 467 320 

COPE 1 468 
COPE 1469 C 
COPE 1470 C 
COPE 1 471 C 
COPE 1472 330 

COPE 1 473 340 

COPE 1474 350 

COPE 1475 
COPE 1476 
COPE 1 477 
COPE 1478 C 
COPE 1479 C 
COPE 1 480 C 
COPE 1481 C 
COPE 1 482 _C 
COPE 1483 
COPE 1 484 C 
C0PE1465 C 
COPE 1 486 C 
C0PE1487 C 
■COPE 1468 
COPE 1 469 C 
■COPE 1 490 „ 
COPE 1491 - 
COPE 1492 
COFE1493 
COPE1494 


WRITE (ISCRI, 350) ( TEMPC I ) , 1= 1 , NSOBJ I 
CONTINUE 

ARRAYC ISCHSV )=5EN5(N5VALN J 
IF (NCALC.ME.5.0R.ID1 .EQ.O) GO TO 320 
RESTORE X, VLB, VUB AMO SCAL. 
IIDV=NDVSAV 

IF ( IOI . EQ.NDV ) GO TO 300 
L=NDV- 1 
LI =L 

DO 2 q 0 I-ID 1 ,L1 
RAIL* I >=nA(L) 

K=L*NDV2 
RACK+1 )=RA(K) 

K=K+NDV2 
RA(KM )=PA(K) 

K=K*NDV2 
RA(K+1 )=RA(K) 

L=L-1 

RACID1 )=SAVX 

K=ID1*NDV2 

RA(K)=SAVL 

K=K+NDV2 

RA(K)=SAVU 

K=K*NDV2 

RA( K )=SAVS 

CONTINUE 

RESTORE NDSGN. 

M2=LOCI(2) 

DO 310 1=1 iNDVTOT 

IF ( I A ( M2 ) . GE . ID I ) IA(M2) = IA(M2 ) + 1 

IF (IA(MC).EQ.O ) IAC M2 )=ID 1 

M2=M2+1 

CONTINUE 

RETURN 


FORMATS 


FORMAT ( 20A4 ) 

FORMAT ( 1615) 

FORMAT (5E15.6) 

END 

SUBROUTINE COPE05 ( RA ,IA,NDRA,NDIA, ISCRI ) 
DIMENSION RA(NDRA), IACNDIA) 


ROUTINE TO PRINT SENSITIVITY INFORMATION STORED ON UNIT ISCRI. 


BY G. N. VANDERPLAATS JULY, 1974. 

NAS4-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 

REWIND ISCRI 


GENEPAL INFORMATION 


TITLE. 

REAO (ISCRI, 70) (RAC I ) , 1 = 1 , 20 ) 

NCALC, NSV , NSOBJ 
REAO (IFCRI.60) NCALC, NSV, NSOBJ 
IF (NCALC. ME. 3. AND. NCALC. NE . 5) RETURN 
IF (NCALC. EQ. 3) WRITE (6,90) 

IF (NCALC. EQ. 5) WRITE (6,50) 

WPUE (6,60) (PAf I), 1=1 ,20) 


COPE 1495 
COPE 1496 
COPE 1 497 
COPE 1490 
COPC 1499 
COPE 1 500 
COPE1501 
COPE 1 502 
COPE 1 503 
COPE 1 504 
COPE 1505 
COPE 1506 
COPE 1 507 
COPE 1508 
COPE 1 509 
COPE 1510 
COPE151 1 
COPE 1512 
C0PE151 3 
COPE 1514 
C0PE1515 
COPE 1 51 6 
COPE 1517 
COPE 1 51 8 
COPE 1519 
COPE1520 
COPE 1521 
COPE 1 522 
COPE1523 
COPE 1 524 
COPE1525 
COPE 1526 
COPE 1 52? 
COPE l 526 
■COPCI 529 
COPE 1530 
■COPE 1 531 
COPE 1 532 
COPC1533 
COPE 1534 
COPE 1 535 
COPE 1536 
COPE 1 537 
♦COPEJ53B 
COPE 1 539 
♦COPE 1 540 
COPE 1 54 1 
COPE 1542 
COPC 1 543 
■COPE 1544 
COPE 1 545 
■COPE 1546 
COPE 1547 
COPE 1548 
COPE 1549 
COPE 1550 
C0FE1551 
COm552 
COFE1553 
COPE 1 554 
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WRITE (6,100) NSV , NSOB J COPE 1 555 

C ISENSI 1 ) ,1=1 ,HSV. COPE 1556 

READ (ISCRI, CO) ( IAI I ) ,1 = 1 ,NSV) COPE1557 

WRITE (6,110) COPE 1 556 

WRITE (6,120) (IA(I),I=1 ,NSV) COPE1 559 

C NSENSZ( I ) , 1=1 ,NSCBJ. C0PE1560 

READ ( ISCR1 .00 ) ( IA( I ) ,1=1 , NSOBJ ) COPE1561 

WRITE (6,130) COPE 1 562 

WRITE (6,120) ( IA( I ) ,1=1 ,M50BJ ) C0PE1563 

C — - - - COPE 1 564 

C NOMINAL INFORMATION COPE I 565 

C COPE 1566 

C SENS! I), 1=1 ,NSV. COPE 1 567 

READ I ZSCR1 • 1A0 ) (RA( I ) ,1 = 1 ,NSV ) C0PE1566 

WRITE (6,150) COPE 1 569 

WRITE (6,160) (RA(I), 1=1, NSV) COPE1570 

C OBJZl 1 ) ,1=1 .NSOBJ. COPE 1571 

READ ( ISCR1 * 140 ) ( RAC I ) , 1= 1 .NSOBJ I COPE1572 

WRITE (6,170) COPE 1 573 

WRITE (6,160) (RACI), 1=1, NSOBJ) COPE1574 

C — - - COPE t 575 

C *»**#**#*# SENSITIVITY INFORMATION *,h,»*#*#«»C0PE 1 576 

C — - -COPE 1 577 

WRITE (6,180) COPE 1 57ft 

DO 40 ISENS= 1 ,NSV COPE1579 

C ISEN5I, NSENSI COPE1580 

READ (I5CR1,80) ISENSI, NSENSI C0PE1581 

WRITE (6,190) ISENSI COPE1562 

IF (NSENSI. EQ.O) WRITE (6,200) C0PE1563 

IF (NSENSI. EQ.O) GO TO 40 C0PE1564 

DO 30 JJ=1, NSENSI C0PE1585 

C SENS(I.J). COPE 1 586 

READ ( ISCR1 ,140) SEN5IJ COPE1587 

C OBJZU1, 1 = 1 , NSOBJ. COPE1S66 

READ ( I5CR1 , 140 ) (RA(I) ,1=1 .NSOBJ ) COFE1589 

N=MIN0(4, NSOBJ) COPE1590 

WRITE (6,210) SENSIJ, (RA( I ) ,1=1 ,N) COPE1591 

N=( N50BJ-1 )/4 COPE 1592 

IF (N.LT.1 ) GO TO 20 COPE1593 

LI =5 COPE 1594 

DO 10 1=1, N COPE 1595 

L2=L1*3 COFE1596 

L2=MIN0(L2, NSOBJ) C0PE1597 

WRITE (6,220) (RA( J),J=L1 , L2 ) C0PE159B 

10 L1=L1+4 COPE 1 599 

20 CONTINUE COPE1600 

30 CONTINUE COPE1601 

.40 CONTINUE COPE1602 

RETURN COPE 1603 

C — - -COPE 1 604 

C FORMATS COPE 1 605 

C - -COPE 1606 

50 FORMAT ( 1H1 ,4X»46H0PTIMUM SENSITIVITY ANALYSIS RESULTS (NCALC=5I) COPE1607 

60 FORMAT ( //5X , 5HTITLE/5X , 20A4 ) COPE1608 

70 FORMAT 120A4) COPE 1609 

80 FORMAT (1615) COPE1610 

• 90 FORMAT ( 1 H 1 »4X »47HSTANDARD SENSITIVITY ANALYSIS RESULTS ( NCALC= 3 ) JCOPE 1611 

100 FORMAT ( //5X , 36HNUMBER OF SENSITIVITY VARIABLES, NSV, 9X, 1H= , I5/5X.C0PE 1 61 2 

1 39HNUMBER OF SENSITIVITY OBJECTIVES, NSOBJ ,6X, JH= , IS ) COPE1613 


110 FORMAT (//5X,52HGLOBAL NUMBERS ASSOCIATED WITH SENSITIVITY VARIABLCOPE 1614 


I 


1ES) COPE 1615 

120 FORMAT (5X.10I5) C0PE1616 

130 FORMAT ( //5X , 53HGLOBAL NUMBERS ASSOCIATED WITH SENSITIVITY OBJECTICOPE 1 6 1 7 
IVES) C0PE1616 

140 FORMAT (5E15.8) C0PE1619 

150 FORMAT I ////5X , 26HNOMINAL DESIGN INF0RMATI0N//5X , 31 HVALUES OF SEN5COFE 1620 

1 1TIVITY VARIABLES) COPE 1621 

160 FORMAT (5X.5E13.5) COPE1622 

170 FORMAT ( //5X , 4 1 HVALUES OF SENSITIVITY OBJECTIVE FUNCTIONS) COPE1623 

180 FORMAT ( /////5X » 28HSENSITIVITY ANALYSIS RESULTS) COPE1624 

190 FORMAT 1 //5X , 1 5HGLOBAL VARIABLE , I5//1 OX , 1HX , 20X , 4HF( X ) ) COPE1625 

200 FORMAT f/5X,35HTHE NOMINAL VALUE IS THE ONLY VALUE/5X,27HSPECIFIEDC0PE 1 626 

1 FOR THIS VARIABLE) C0PE1627 

210 FORMAT ( /3X , E 1 2 .4 , 3X.4E 1 3.4 ) CDPE1628 

220 FORMAT 118X,4E13.4) COPE1629 

END COPE 1 630 

SUBROUTINE COPE06 ( ARRAY ,RA , IA .NARRAY ,NDRA ,NDIA ) COPE 1631 

COMMON /COPES1 / TITLE C CO > COPE1632 

COMMON /C0PE53/ SGNOPT , NCALC , IOBJ , NSV , NSOBJ , NCONA , HZ VX , M2 VX ,N2VY , MCOPE 1633 
1 2VY , N2VAR , IP5EN5 , IP2VAR , IPDBG.NACMX1 »NDVTOT , LOCR( 25 ) , LOCH 25 ) , ISCRCOPE 1634 
21 , ISCR2 ,NXAPRX>NPS >NPFS >NPA,NF > INOH»IPAPRX»KMIN,KMAX>XF ACT1 ,XF ACT2C0PE 1635 
3 , NAN2 , HAN3 , HR1AX , NPTOT , JNOM , MAXTRM COPE 1636 

DIMENSION ARRAT( NARRAY), RA(NDRA), IA(NOIA) COPE1637 

C ROUTINE TO CALCULATE FUNCTIONS OF TWO DESIGN VARIABLES FOR ALL COPE1639 

C COMBINATIONS OF A SET OF PRESCRIBED VALUES OF THESE VARIABLES. COPE1640 

C WRITE OUTPUT INFORMATION ON SCRATCH UNIT ISCR1. COPE 1642 

C BY G. N. VANOERPLAATS AUG., 1974. COrE1643 

C N4SA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. C0PE1644 

REWIND ISCP1 COPE 1 645 

C - COPE 1 646 

C UNIT ISCR1 WRITE C0PE1647 

C - COPE 1648 

WRITE (ISCR1.40) ( TITLE ( I ) , 1= 1 , 20 ) C0PE1649 

WRITE ( ISCRI ,50 ) NCALC ,N2VAR ,M2VX .N2VX.M2VY ,N2VY COPE1650 

C NCVZ. C0PE1651 

M20=LOCI( 20 ) C0PE1652 

M2 1 = LOC 1(21 1-1 COPE 1653 

WRITE (ISCRI, 50) ( IA( I ) »I=M20 »M21 ) C0PE1654 

C COPE 1 655 

C TWO-VARIABLE FUNCTION SPACE COPE1656 

C — COPE 1657 

ICALC = 2 COPE 1658 

KCALC=3 C0PE1659 

ISIGN=1 COrEI 660 

N20 = LOCPI 20 ) COPE 1661 

N2 1 = LOCP( 2 1 )- I COTE 1 662 

DO 30 I=t ,M2VX COTE 1 663 

ARRAY ( N2VX ) = RA( N20 ) C0PEI664 

DO 20 J=1 ,M2VY COPE 1665 

N2 1 =N21 + ISIGN COPE 1666 

ARRAYCN2VY )=RA(N21 ) C0PE1667 

C ANALIZE. COPE 1 668 

NANZ =NAN2 + 1 COPE 1669 

CALL ANALIZ ( ICALC ) COPE1670 

' IF (IP2VAR.GT.O) CALL ANALIZ (KCALC ) COPE1671 

IF (IP2VAR.GT.0) NAN3=NAN3*1 COPE1672 

C COPE1673 

C UNIT ISCRI WRITE COPE1674 
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C - COPE 1 6 75 

C WRITE X, Y. COPE 16 76 

WRITE ( ISCR 1 »60 ) RAl N20 ) ,RAt H21 ) COPEI677 

C F(X.T) VALUES. COFE1678 

M2 3= LOCR 123 1 COPE1679 

N24=N23 COPE 1 680 

M20 = LOCI l 2D ) COPE 1 681 

DO 10 K=t,N2VAR COPE1682 

N=IA( MCO ) COPE 1 683 

R A( N24 ) = ARRAY! N ) C0PE1684 

N24=N24+1 COPE 1685 

M20=M20 + 1 COPE 1 686 

10 CONTINUE COTE 1 687 

N24=N23 + H2VAR-1 COPE1688 

WRITE ( ISCR 1.60) (RACK) »K=N23»N24 ) COPE1689 

20 CONTINUE COPE1690 

N21=N21 ♦ISIGM COPE 1691 

H20=NZ0M COPE 1692 

ISIGN=-ISIGN COPE 1 693 

30 CONTINUE COFE1694 

RETURN COPE1695 

C — COPE 1696 

C FORMATS COPE 1 697 

C - - COPE 1 698 

C COPE 1 699 

C COPE 1 700 

C COPE 1 701 

40 FORMAT (20A4) COPE 1 702 

50 FORMAT (1615) COPE1703 

60 FORMAT (5E15.8) COPE1704 

END COPE 1705 

SUBROUTINE COPE07 (RA, IA,NDRA,NDIA, ISCRI ) COPE1706 

DIMENSION RA(NDRA), IA(NDIA) COPE1707 

C *»w#*****»*w******#**#«*«**«*««*«»*«i.*«**««*#M#*##«i.#«#*.i#«*«ww»*.<COrE1708 

C ROUTINE TO PRINT TWO VARIABLE FUNCTION SPACE INFORMATION STORED ONCOPEI709 

C UNIT ISCRI. COPE 1 71 0 

C **##*#***»#WI»#***#*W**##K*#»*#WK**#*###**H**K**WWW*W*#***#W»«#*#tf«#COPE1 71 1 

C BY G. N. VANDERPLAATS AUG., 1974. COPE1712 

C NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. COPE1713 

REWIND ISCRI COPE1714 

C - - COPE 1715 

C GENERAL INFORMATION COPE1716 

c --- COPE1717 

C TITLE. C0PE1716 

READ (ISCRI, 60) (RAC 1 1 >1 = 1 .20 I COPE1719 

READ (ISCRI, 70) NCALC ,N2VAR ,M2VX,N2VX ,M2VY ,N2VY COPE1720 

IF (NCALC. NE. 4. AND. NCALC. NE. 6) RETURN COPE1721 

WRITE (6,50) COPE 1722 

WRITE (6,40) (RA(I), 1 = 1 ,20) COPE1723 

C N2VZ( I ) • 1=1 ,N2VAR . C0PE1724 

READ (ISCRI, 70) ( IA( I ) , 1=1 ,N2VAR ) COPE1725 

C N2VX, N2VY. COPE1726 

WRITE (6,120) N2VX.N2VY COPE1727 

C N2VZ. COPE 1728 

WRITE (6,130) COPE 1 729 

WRITE (6,80) (IA(I),I=1 .N2VAR) COPE1730 

-C - COrE1731 

C TWO-VARIABLE FUNCTION SPACE INFORMATION COPE1732 

C - COPE 1733 

COPE 1 734 


00 30 1=1 ,M2VX 


WPITE (6,140) 

DO 30 J=1 ,M2Vr 
X, Y. 

READ (ISCRI ,150) XX, YY 
F ( X , Y ) . 

PEAD (ISCRI, 150) (RACK) ,K=1 ,N2VAR) 

N r 4 

IF (N2VAP.LT-4) N=N2VAR 

IF IJ.EQ.1) WPITE (6,100) XX , YY , ( RAl K ) ,K= 1 ,N ) 
IF (J.GT.1) WPITE (6,90) YY , ( RA( K ) ,K= 1 ,H ) 

IF (N.GE.N2VAR) GO TO 20 
N=5 

M=( N2VAR - 1 )/4 
DO 10 K=1 ,M 
L=N f 3 

IF (L.GT.N2VAR) L=N2VAR 
WRITE (6,110) (RA(KK),KK=N,L) 

N = L + 1 
CONTINUE 
CONTINUE 
RETURN 


FORMAT ( //5X, 5HTITLE/5X , 20A4 ) 

FORMAT ( 1 H I ,4X,35HTWO-VARIABLE FUNCTION SPACE RESULTS) 

FORMAT (20A4) 

FORMAT ( 1615 ) 

FORMAT ( 5X, 1015 ) 

FORMAT (/15X,EI2.4,3X«4E13.4) 

FORMAT ( /3X , 2E1 2 . 4 , 3X ,4E1 3.4 ) 

FORMAT ( 30X »4E1 3. 4 ) 

FORMAT l////5X,48HGLOBAL NUMBER ASSOCIATED WITH X-VARIABLE, N2VX = 
1 ,I5//5X,46HGL0BAL NUMBER ASSOCIATED WITH Y-VARIABLE , N2VY =,I5) 
FORMAT ( //5X , 37HGLOBAL NUMBERS ASSOCIATED WITH F(X,T») 

FORMAT ( //I OX, 1HX» 1 1 X 1 1 HY , 20X ,6HF( X, Y ) ) 

FORMAT (5E15.8) 

END 

SUBROUTINE COPE08 ( A ,B , IFORM ,NFLD ) 

DIMENSION At 1 ), B( 1 ), C( 10) 

DATA COtIMA/IH »/, BLANK/ 1 H / 

ROUTINE TO CONVEPT UNFORMATTED DATA TO FORMATTED DATA IN FIELDS 
OF 10, EACH FIELD RIGHT JUSTIFIED. 

BY G. N. VANDERPLAATS AUG., 1976. 

NASA AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 

- INPUT. 

A - ARRAY OF DATA SEPERATED BY COMMAS. MINIMUM DIMENSION OF 

IS A( 00 ) . 


B - ARRAY OD DATA IN FIELDS OF 10 AND RIGHT JUSTIFIED. 

MINIMUM DIMENSION OF B IS 1 0*NFLD . 

IFORM - 0 IF A WAS UNFORMATTED. 

1 IF A WAS ALLREADY FORMATTED. 

NFLD - NUMBER OF FIELDS OF DATA. 

NOTE. 

1 ) DATA IS ASSUMED TO BE REAL OR INTEGER DATA WITH NO EMBEDDED 
BLANKS WITHIN A GIVEN FIELD. 

2) DATA IS CONSIDERED UNFORMATTED IF 

A) A COMMA IS FOUND 

B) LAST NON-BLANK CHARACTER IS IN COLUMN 1-10 AND THERE IS 
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C 

c 


NO DECIMAL AND IT IS NOT RIGHT JUSTIFIED 


IFORM=0 

C SEARCH FOR LAST NON-BLANK CHARACTER AND SEARCH FOR COMMA. 

C CALCULATE NUMBER OF NON-BLANK SETS. 

IHDN=0 
KNON=Q 
LST = 0 

DO 10 1=1 ,80 

IF ( All). EQ. COMMA) GO TO 20 
JNON=INON 

IF (A(I).EQ. BLANK) INON=0 
IF 1 Am. NE. BLANK) INON=1 
IF ( INON.GT. JNON) KNON=KNON+1 
IF ( A( I ) -NE .BLANK ) LST=I 
10 CONTINUE 

C NO COMMA WAS FOUND. DATA MAT BE FORMATTED. 

IF (LST.GE.10) GO TO 90 

C IF MORE THAN ONE SETS OF CHARACTERS, DATA IS ASSUMED FORMATTED. 

IF (KNON.GT. 1 ) GO TO 90 
20 CONTINUE 

C DATA IS UNFORMATTED. 

K2= 1 0 
NFLD=0 
1 = 0 

30 CONTINUE 

1 = 1 + 1 

IF (I.GT.80) GO TO 110 
C IGNORE LEADING BLANKS. 

IF (A(IJ. EG. BLANK) GO TO 30 

C CALCULATE NUMBER OF NON-BLANK CHARACTERS IN THIS FIELD. 

JJ=0 

DO 40 J=I, 60 

IF (A(J).Eq. COMMA. OR. AIJJ.EQ. BLANK) GO TO 50 
JJ=JJM 

40 C(JJ)=A(J) 

50 NFLO=NFLD+t 

I=I+JJ 

C BLANK FIELD NFLO OF B. 

K!=K2-9 
DO 60 K=K1 ,K2 
60 B(K)=BLANK 

C STORE C IN FIELD NFLO OF B, RIGHT JUSTIFIED. 

IF ( JJ.EQ.O ) GO TO 80 

J1=JJ 

K=K2 

DO 70 L=1 , JJ 
, B1K)=C(J1) 

K=K-1 

70 J1=J1-1 

60 K2=K2+ 1 0 

GO TO 30 
90 CONTINUE 

C FORMATTED INPUT. STORE A DIRECTLY IN B. 

IF0RM=1 

NFLD=8 

. DO 100 1=1, 80 

100 B( I )=A( I ) 

110 CONTINUE 

RETURN 


COPE 1795 
COPE 1 796 
COPE1797 
COPE179Q 
COPE 1799 
COPE l 800 
COPE 1 801 
COPE 1802 
C0PE1803 
COPE1804 
COPE 1805 
COPE 1 806 C 
COPE 1807 C 
COPE1808 C 
COPE 1809 C 
COPE 161 0 C 
COPE 161 1 C 
COPE1812 C 
C0PE1613 
COPE 161 4 
COPE 1815 
C0PE1616 
C0PE161 7 
C0PE161S 
C0PE161 9 
C0PE1620 
COPE 1621 
C0PE1822 
C0PE1623 
COPE 1624 
COPE 1625 
COPE 1626 
COPE 1627 C 
COPE 1628 C 
COPE 1629 C 
COPE 1630 
COPE1631 
COPE 1632 
COPE 1633 
COPE 1834 
COPE1635 
COPE 1836 
COPE 1837 
COPE 1836 
COPE 1039 
COPE 1 840 
COPE 1641 
COPE 1642 _ 
COPE 1 643 
COPE 1644 
COPE 1845 
COPE 1646 
COPE1647 C 
COPE 1646 C 
COPE1649 
COPE 1850 . 
COPE1651 - 
COPE 1852 
COPE 1853 
COPE 1854 


END COPE 1855 

SUBROUTINE COPE09 COPE 1056 

COMMON /CNMN1/ DELFUN,DABFUN»FDCH »FDCHM»CT ,CTMIN,CTL ,CTLMIN, ALPHAXCOPE 1857 
1 , ABOBJ1 , THETA, OBJ, HDVpNCON.MSIDE ,IPRINT ,NFDG,NSCAL, LINDBJ , UMAX , ITCOPE 1 858 
2RM . ICNDIR , IGOTO , NAC , INFO , INFOG , ITER COPE 1 859 

COMMON /COPES2/ RA( 5000 ), IAM 000 ) COPE106O 

COMMON /COPE53/ SGNOPT .NCALC , IOBJ ,NSV,N50BJ ,NCONA ,N2VX,M2VX,N2VT ,MC0PE 1 061 
1 2VY ,N2VAR , 1PSENS , IP2VAR , IPDBG .NACMX1 ,NDVTOT , LOCR ( 25 ) , LOCI ( 25 ) , ISCRCOPE 1 862 
21 , ISCR2 ,NXAPRX»NPS»NPFS,NPA»NF »IN0I1,IPAPRX,KMIN,KMAX»XFACT1 »XFACT2C0PE1 063 
3 , NAN 2 »NAN3 , NPMAX , NPTOT , JNOM , MAXTRM COPE 1 064 

COMMON /GLOBCM/ ARRAY( 1500) COPE 1065 

ROUTINE TO DO APPROXIMATE OPTIMIZATION. COPE 1667 

COPE 1 869 

BY G. N. VANDERPLAATS JAN., 1979. COPE1870 

NASA AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. COPE 1871 

COPE 1 872 

NFDGSV=NFDG COPE 1873 

NFDG=1 COPE 1874 

IF ( NFDGSV. LT.O ) NFDG=0 C0PE1875 

CTMIN= AB5 l CTMIN ) C0PE1876 

CTLMIN=ABS( CTLMIN ) C0PE1877 

IF (CTMIN. LE. 0. ) CTMIN=.0005 C0PE1878 

IF (CTLMIN. LE.O. ) CTLMIN=.0001 C0PEI879 

IF (ABS(CT).LE.O. ) CT=-.01 COPE1800 

IF (ABS(CTL).LE.O. ) CTL=-.001 C0PE1681 

IF ( DELFUN. LE.O. ) DELFUN=.0001 COPE1882 

IF (IPDBG. LT.1) IPRINT=0 COPE1683 

IF (ITMAX.LT. 50) ITMAX=5Q COPE 1804 

NSIDE=1 COPE 1 885 

KOUNT=0 C0PE1886 

C0PE1887 

ARRAY STARTING LOCATIONS. COPE 1808 


NN1=NXAPRX+2 
NXV=LOCR ( 23 ) 

NVLB=NXV+NN1 

NVUB=NVL8+NN1 

NXNOM=NVUB+NN1 

NDX=NXNOM+NXAPRX 

NFNOM=NDX*NOV 

NFNEW=NFNOM*NF 

NBTAY=NFNEW+NF 

NBR=NXAPRX+( NXAPPX*( NXAPRX+ 1 ) )/2 
IF (MAXTRM.LT. 3) NBR=MAXTRM*NXAPRX 
NTMP=NBTAY f NBR*NF 
NBLU=LOCR( 6 ) 

NISC= LOCK 4 ) 

NIGFN=LOCI( 23) 

NIDV=NIGFN+NCONA 
IF (KMAX.LT.O) GO TO 160 
CONMIN ARRAYS. 

DIMENSIONS. 

NN1=NDV+2 

NN2=2*NDV+NCON 

NN3=NACMX1 

NN4=NN3 

IF (NDV.GT.NN4) NN4=NDV 
NN5=2*NN4 
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c 

SCAL, DF, G, A, 5, G1 

, G2, C, B, 

, ISC, 

IC, MSI . 

COPE 1915 

C 

THIS APPROXIMATING VARIABLE IS 

NOT 

A DESIGN VARIABLE. 

COPE 1 975 


NNSCAL=L0CR( A ) 




COPE 1916 


GO TO 90 



COPE 1976 


NDF=NTMP 




COPE 1 91 7 

80 

CONTINUE 



COPE 1 977 


NG=NDF+NN1 




COPE 1918 

C 

DESIGN VARIABLE NUMBER. 



COPE 1 978 


Nfi=NG 4 NN2 




COFE1 919 


IAI N3 ) = I At M2 1 



COPE 1979 


N5=NA*HH1»NN3 




COPE1 920 

90 

N3=N3+1 



COPE I960 


MG 1 =NS 4 NM1 




COPEI 921 

C 

CHECK TO BE SURE EACH INDEPENDENT 

DESIGN VARIABLE IS ALSO AN 

C0PE1931 


NG2=NG1 +MM2 




COPE 1 922 

C 

APPROXIMATING VARIABLE. 



COPE 1982 


NC=NG2+NN2 




COPE 192 3 


DO 120 1=1 ,NDV 



COPE 1903 


NB=NC*NN4 




COPE 1 924 


N1 = LOCI ( 1 ) 



COPE 1984 


NISC=LOCI( 4 ) 




COPE 1 925 


N2 = LOC 1(2) 



COTE 1 985 


NIC=NIDV+NXAPRX 




COPE 1 926 


DO 110 J=l , NDVTOT 



COPE 1936 


NMS1 =NIC*MM3 




COPE 1 92 7 

C 

IS THIS DESIGN VARIABLE I. 



COPE 1 987 

c 





COTE 1 926 


IF (IA(N2 1.NE.I ) GO TO 110 



COPE 1 988 

c 

DETERMINE IOBJA, 

ARRAYS 

IGFN AND IDV. 

COPE 1 92 9 

c 

YES. 



COPE 1909 

c 





COPE 1 930 

c 

GLOBAL VARIABLE NUMBER. 



COPE 1 990 

c 

IOBJA . 




COPE1931 


IGLOB=IA(N1 > 



COPE 1 991 


f16 = LOCK 6 ) 




COPE 1 932 


N1 =N1 4 1 



COPE 1992 


DO 10 1=1 ,NF 




COPE 1 933 


N5 = LOCI 1 5 ) 



COPE 1 993 


J = IA ( M6 J 




COPE 1 934 


DO 100 K=1, NXAPRX 



COPE 1994 


IOBJA=I 




COPE 1 935 

c 

IS THIS THE SAME AS IGLOB. 



COPE 1 995 


IF (J.EQ.IOBJ) GO TO 

20 



COPE 1 936 


IF (IA(N5).EQ. IGLOB) GO TO 120 



COPE 1 996 

10 

M6=M6+1 




COPE 1 937 

c 

NO. 



C0PE1997 

c 

ERROR - IOBJA MOT FOUND. 



COPE 1 938 

100 

M5=N5*1 



COPE 1 998 

20 

CONTINUE 




COFE1939 

110 

N2=N2 4 1 



COPE 1 999 


IF (NCONA.EQ.O) GO TO 

60 



COPE 1940 

c 

ERROR - DESIGN VARIABLE IS NOT 

AN 

APPROXIMATING VARIABLE. 

COPE2000 

C 

IGFN ARRAY . 




COPE 1 94 1 

120 

CONTINUE 



COPE2001 


M3= LOCI ( 3 ) 




COPE 1 942 

c 


— 


COPEZ002 


M23=LOCI( 23 ) 




COPE 1 943 

c 

BEGIN SEQUENTIAL APPROXIMATE OPTIMIZATION. 

COPE2003 


DO 50 1=1 tNCONA 




COTE 1944 

c 


— 


COPE 2004 

c 

GLOBAL LOCATIONS OF CONSTRAINED 

PARAMETERS. 

COPE 1 945 


ICK 1 =0 



COPE2005 


J=IA(M3) 




COPE 1 946 


ICK2=0 



COPE2006 


H3=M3M 




COPE 194 7 


ICK3=0 



COPE2007 

c 

LOCAL VARIABLE, F, LOCATION. 



COPE 1 948 

130 

CONTINUE 



COPE2008 


M6 = LOCI ( 6 ) 




COPE1 949 


KOUNT=KOUNT 4 1 



COPE2009 


DO 30 K= 1 ,NF 




COPE 1 950 


IF ( IPAPRX. IT. 1 . OR . IPAPRX. EQ . 3 ) GO TO 160 

C0PE201 0 


KK=K 




COPE 1951 


IF (KMAX.LT.O) GO TO 160 



COPE201 1 


L=IA( M6 ) 




COPE1 952 

C 

PRINT INITIAL INFORMATION. 



COPE20 1 2 


IF (L.EQ.J) GO TO 40 




COPE1 953 

c 

TITLE. 



COPE201 3 

30 

M6=M6M 




C0PE1954 


IF (KOUNT.GT. 1 ) GO TO 150 



COPE201 4 

C 

ERROR - CONSTRAINED VARIABLE IS 

NOT AN 

APPROXIMATE FUNCTION. 

COPE 1955 


WRITE (6,670) 



COPE201 5 

40 

CONTINUE 




COPE 1956 

c 

OBJECTIVE FUNCTION. 



COPECOI 6 


I A( M2 3 ) =KK 




COPE 1 957 


WRITE (6,550) IOBJA 



COPE201 7 

50 

M23=M23 4 1 




COPE 1958 


IF (NCONA.EQ.O) GO TO 140 



COPE20 1 8 

60 

CONTINUE 




COPE 1959 

C 

CONSTRAINTS. 



COPECOI 9 

C 

IDV APRAY. 




COPE 1960 


WRITE (6,560) 



COPE20C0 


N3=NIDV 




COPE 1 961 


HI =NIGFN 



COPE2021 


N5 = LOC 1(5) 




COPE 1 962 


N2=H1 4 NC0NA-1 



COPE2022 


DO 90 1=1 , NXAPRX 




COPE 1 963 


WRITE (6,570) (IA(I),I=NI ,N2) 



COPE2023 


I A ( N3)=0 




COPE 1964 

140 

CONTINUE 



COPECOC4 

C 

GLOBAL LOCATION. 




COPE 1 965 

c 

DESIGN VARIABLES. 



C0PEC0C5 


II=IA(N5) 




COPE 1966 


WRITE (6,530) 



COPE2026 


N5=N5+1 




COPE 1 96 7 


N1 =NIDV 



COPEC027 

C 

FIND CORRESPONDING DESIGN VARIABLE. 


COPE 1 968 


N2=NI +NXAFRX-1 



CDFE2020 


HI = LOCK 1 ) 




COPE 1 969 


WRITE (6,570 ) ( I A( I ) , I = N1 ,N2 ) 



COPE 2029 


N2 = LOCH 2 ) 




COPE 1 970 

.150 

CONTINUE 



COPE2030 


DO 70 J= 1 , NDVTOT 




COPE1 971 

■ C 

ITERATION NUMBER. 



C0PE2031 


IF IIAIHI ) . EQ. II ) GO 

TO 80 



COPE 1 972 


WRITE (6,680) KDUNT 



COPE20 32 


Ml =N1 +1 




COPE 1 973 

160 

CONTINUE 



CCPE2033 

70 

N2=N2+1 




COPE 1 974 


NP=NPTOT - 1 



COPEC034 
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SET UP ARRAYS XNQM, FNOM, XI, Y. 


NXI=NTHP COPES 038 
NY=NXI*NXAPRX#NPTOT COPE2039 
NWGHT=NY +HF *NPTOT CQPE204Q 
IF ( KMAX . LT . 0 . AND . INOM . LT . 1 ) INOM=1 C0PE2041 
CALL COPE 10 ( RA( NXI ) ,RA( NY } ,RA( NXNOM ) ,RA( NFNOM ) ,NPTOT , KOUNT ,RA( NBLCOPE2042 
1 U ) , IA( NIGFN ) i IOBJA , IA( NISC ) ,NXAPRX,NF ,NCONA»SGNOPT ,CTMIN,CTLMIN » ISCOPE 204 3 


2CR2 »RA( NWGHT ) , INOM ,NPHAX , JNOM ) COPE2044 

IF (KMAX.LT.O) GO TO 170 COPE2045 

CURRENT OBJECTIVE. COPE2046 

NIsMFNOM* IOBJA- t COPE2047 

OBJSAV=-RA(N1 HSGNOPT COPE2048 

IF (KOUNT.LT. 2. AND. DABFUN.LE.O. ) DABFUH= . 001 *ABS( OBJSAV ) COPE2049 

IF (OABFUN.LT. 1 .0E-10) OABFUN=1 .OE-1 0 COPE2Q50 

IF ( IPAPRX. LT . 1 .OR . IPAPRX. EQ. 3 ) GO TO 170 COPE2051 

PRINT CURRENT NOMINAL. C0PE2052 

WRITE (6,690) INOM COPE2053 

N2=NXNOM + NXAPRX-1 COPE 2059 

WRITE (6,700) (RA( I ) ,I=NXNOM»N2 ) COPE205S 

WRITE (6,710) COPEC056 

N2=NFN0f1 4 NF-! COPE2057 

WRITE (6,700) (RA(I),I=NFNOM,N2) COPE2056 

CONTINUE COPE2059 

COPE2060 

LEAST SQUARES FIT FOR TAYLER SERIES EXPANSION. COPE2061 

- COPE2062 

NXt=NXAPRX COPE2063 

M=NX1 ♦ ( NX 1 *• t NX 1 1 ) )/2 COPE2064 

IF 1M.GT.NP) M=NP COPE2065 

IF (NP.LT.NXAPRX) M=NXAPRX COPE2066 

MMAX=NXAPRX"MAXTRM COPE 2 067 

IF(MAXTRM.GT.2) MMAX=M COPE 2066 

IF (M.GT.MMAX) M=MMAX COPE 2 06 9 

NAA=NWGHT*NP COPE2070 

NFF=NAA 4 (tt»(M+ 1 ))/2 COPE2071 

NGG=NFF+M COPE2072 

CALL COPE 1 2 t RA( NXI ) ,RA( NY ) ,NX1 ,NP, NF , M , RA( NBTAY ) ,RA( NAA ) ,RA( NFF ) ,COPE2073 
1RA( NGG ) ,NXAPRX*NF ,NBR »RA( NWGHT ) ,NER ) COPE20 74 

IF (NER.GT.O ) WRITE 16,590) COPE2075 

IF (KMAX.LT.O) GO TO 530 COPE2076 

IF ( IPAPRX. LT .2 . AND . IPAPRX.NE .4 ) GO TO 190 COPE2077 

PRINT TAYLER SERIES COEFFICIENTS. COPE2076 

WRITE (6,720) COPE2079 

N3=L0CI16) COPE2060 

N1=NBTAY COPE 2 061 

00 1 BO J=1 ,NF COPE2062 

N2=N1 4 M-1 COPE2063 

WRITE (6,600) J , IAt N3 ) COPE2064 

WRITE 16,700) lRAtI),I=N1 ,N2) COFE2085 

Nt =Nt *NBR COPE2066 

N3=N3 + 1 COPE2067 

CONTINUE COPE20S6 

CONTINUE COPE 2089 

IF ( KOUNT. GT. KMAX) GO TO 470 COPE 2090 

- COPE2091 

INITIALIZE XV, OX, VLB, VUB. C0PE2092 

- C0PE2093 

N1=NXV COPE 2 094 


DO 200 IMiHXAPRX 
RA1N1 )=0. 

N1=N1+1 
N2=NVLB 
N3=NVUB 
N4= NXNOM 
N5 = LOCP< Z) 

N6=LOCR( 3) 

N7=LOCR(7) 

N8=N0X 
L1=M-H0V 
L2=L1 -NDV 

ICK=ICK1 f ICK2 + ICK3 
DO 210 1=1 .NDV 
RA(N8)=0. 

XF ACT = 1 . 

IF (I.LE.L1) XFACT-XFACT1 
L2=L2-NDV 4 I 

IF (L2.GE.0) XFACT=XFACT2 
REDUCE BOUNDS IF ANY ICK.GT.O. 

IF (ICK.GT.O) XFACT=.5 
DX=XFACT*PA(H7) 

XX=RA!N4) 

DXL=XX-RAIN5) 

IF (OXL.GT.DX) DXL=OX 

OXU=RA(N6)-XX 

IF (DXU.GT.DX) DXU=OX 

RA(N2) = -OXl 

RA(N3)=DXU 

N2=N2+1 

N3=N3M 

N4=N4+I 

N5=N5+! 

N6=N6»1 

N7=N7+1 

N8=N8*1 

IF (IPAPRX. LT. 2. AND. IPAPRX. HE. 4) GO TO 
WRITE (6,610) 

Nl =NVLB + NDV-1 

WRITE (6,700) ( RAf I ) »I=NVLB»N1 ) 

WRITE l 6 ,620 ) 

Nl =NVUB*NDV- 1 

WRITE (6,700) ( RA( I ) » I=NVUB»NI ) 
CONTINUE 


OPTIMIZE APPROXIMATE 


OPTIMIZATION, 

IGOTO=0 

CALL CONMIN ( X,VLB,VUB,G,SCAl,DF , A,S,G1 
»,N4,N5) 

CONTINUE 

CALL CONMIN ( RA( NDX ) ,RA( NVLB ) ,RA( NVUB ) * 
1 A( NA ) ,RA( NS ) ,RA( NG1 ),RA(NG2 ) ,RA( NB ) ,RA( 
21 ) ,MN1 ,N?)2,NN3,NN4,NN5) 

TRANSFER VARIABLES FROM DX TO XV. 

Nl =NIDV 
N2=NXV 

DO 240 1=1 .NXAPRX 
II = IA( Nl ) 


COPE2095 
COTE2096 
C0PE2097 
COFE209Q 
COPE2099 
COFE210C 
COPE2101 
COPE2102 
COPES I 03 
C0PEC104 
COPE2105 
COPE2I06 
COPES 107 
C0PE210Q 
COrE2l09 
COPE21 1 0 
COrE21 1 1 
COPE21 1 2 
COPE2113 
COPE 2 1 1 4 
COPE21 15 
COPE21 16 
COPE2117 

corEsiie 

COPE21 1 9 
COPE2120 
COPES 1 2 1 
CQPE21 22 
COPES 1 23 
COPE2124 
CDPE2125 
COPE2126 
COPES 1 27 
COPE21 28 
COTESI 29 
C0PE2130 

220 COPE2131 

COPES 1 32 
COPE21 33 
C0PE2134 
COPE21 35 
COPES 1 36 
COPES 1 37 
COPE 2 138 

• COPES 139 

FUNCTION. COPES t 40 

■ - COPE2141 

COPE2142 

COPE2143 

,G2 ,B ,C> ISC ,IC, MSI ,N1 ,N2 ,N3COPE21 44 
COPES 145 
COPES 1 46 

RAING ) ,RA( NMSCAL ) ,RA( NOF ) ,RCOPE2 1 47 

NC ) , IA( NISC ) , IAt NIC ) , IA( NMSCOPE2 1 48 
C0PE2149 
COFE21 50 
COrE2151 
COPE2152 
COPES 1 53 
COPE 2 154 
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N9=HDXMI-1 

IF ( I I .GT . 0 . AND . II . LE.NOV ) RA( H2 )=RA( N9 ) 

N1 =N1 ♦ 1 

N2-M2+1 

N3=N3M 

APPROXIMATE ANALYSIS. 


COPE2 1 55 
COPE2 1 56 
CQPE2 1 57 
COPE 2 1 58 
COPE2159 
COPE2 t 60 


CALL COPE 15 (RAINXV) ,RA(NG) , RAl NDF ) , RA( NA ) , IAl NISC ), IA( NIC ) ,NN1 .RACOPE2161 
1 (NBLU)iNXI , IOBJA ,M , RAl NFNOM ) » RAl NFHEW ) ,RA( NBTAY ) ,NBR *IA(NIGFN)»CT » COPE 2 1 62 


2CTL i INFO , NAC , NCONA ,N0V , HF , OBJ , SGNOPT ) 
IF (IGOTO.GT.O) GO TO 230 


COPE2163 

C0PE2169 


IF DESIGN PRODUCED ZERO DELTA-X TWICE IN A ROW AND KOUNT . GE . KMIN , COPE2165 
TERMINATE. COPE2166 
ICK1=ICK1+1 COPE21 67 
SUM=0. COPE2168 
N1=NXV COPE2169 
DO 250 1=1 ,NDV COPE2170 
SUM=SUM*RA( N1 )**2 COPE2171 
N1=N1M COPE2 1 72 
IF (5UM.GT.1 . 0E- 1 0 ) ICK1=0 C0PE2173 
IF t IPAPRX .GT . 0 . AND .IPAPRX.NE . 3) WRITE (6,730) COPE2179 
IF (ICK1 .GE. 2. AND. KOUNT. GE. KMIN) GO TO 360 COPE2175 


INSURE NEW X-VECTOR IS INDEPENDENT 


JJJ = Q 
JJJ = JJJM 
NOMINAL X-VECTOR . 

N1=NTMP 

N2=NXN0M 

N3=NXV 

DO 270 1=1 ,NXAPRX 

RA(N1 )=RA(N2)+RA(N3I 

N1=NIM 

N2=N2M 

N3=H3M 

READ X- VECTORS ONE AT A TIME AND COMPARE TO XNOM. 

REWIND ISCR2 

HI =NTMP + NXAPRX 

N2 =N1 +NXAPRX- 1 

N3=N2M 

N9=N3*NF-1 

DO 290 J=1 .NPTOT 

KK=J 

X-VECTOR. 

REAO ( ISCR2 ) ( PA( I ) » I=N1 ,N2 ) 

Y-VECTOR. HOT U5ED . READ TO POSITION I5CR2 . 

READ ( ISCR2 ) ( RA(I) , I=N3 , N9 ) 

COMPARE X WITH XNOM. 

N5 = N1 
N6=NTMP 
SUM=0 . 

DO 280 1=1 ,NXAPRX 

SUM=SUMMRA(N5)-PA(N6>)**2 

N5=N5M 

N6=N6M 

IF ( SUM . LT.1-0E— J0> GO TO 300 

CONTINUE 

GO TO 360 

CONTINUE 

THIS DESIGN IS SAME AS A PREVIOUS DESIGN. 


MODIFY DELTA-X VECTOR. 

N6=NVUB 

N7=NXV 

N3=NVLB 

N9=NXV*NDV-1 

IF (IPAPRX. LT.1. OR. IPAPRX. EQ. 3) GO TO 310 
WRITE (6,630) 

WRITE (6,790) 

WRITE (6,700) (RA(I) ,I=N7,N9) 

WRITE (6,750) 

N 9 = NTM P + NXAPR X - 1 

WRITE (6,700) (RA( I ),I=NTMP,N9) 

WRITE (6,690) 

CONTINUE 

AMULT = . 0 1 *F LOAT( JJJ ) 

DO 320 1=1 , NDV 
BU = RA(N6) 

BL=RA( N8 ) 

IF (BL.LT.-1 .OEMS) BL=0. 

IF (BU.GT. 1 .0EM5) BU=Q. 

DB=ABS( BU-BL ) 

IP (DB.LT.1 . OE -6 ) DB= . 1 

DX=RA(N7>+AMULT*DB 

IF (DX.GT.RA(H6) ) DX=OX-2 . #AMULT*DB 

IF (DX.LT.RA(N8) ) DX=DXM . 5* AMULT*DB 

RA(H7)=DX 

N6=N6M 

N7=N7M 

N8=N8M 

CONTINUE 

CALL COPE 15 ( RA( NXV ) ,RA( NG ) ,RA( NDF ) ,RA( NA ), IAl NISC ) >IA( NIC ) ,NN1 , 
1 ( N8LU ) ,NX1 , IOBJA,M,RA( HFNOM ) * R A C NFNEW ) ,RA(NBTAY ) ,NBR , IA( NIGFN ) ,C 
2CTL , INFO , NAC , NCONA , NDV ,HF , OB J , SGNOPT ) 

IF (JJJ.LT.9) GO TO 260 

FOUR TRIES HAVE FAILED TO PRODUCE A USABLE X-VECTOR. 

USE LATEST TRY. 

POSITION ISCR2 IF NEEDED. 

IF (KK. EQ. NPTOT ) GO TO 390 
KK=KKM 

00 330 J=KK, NPTOT 

READ ( ISCR2 ) ( RA( I ) , I=N1 ,N2 ) 

READ ( I5CR2 ) ( RAl I ) , I=N3,N9 ) 

CONTINUE 

IF ( IPAPRX. LT.1 .OR. IPAPRX. EQ. 3) GO TO 350 
IF (JJJ.EQ.9) WRITE (6,650) 

CONTINUE 

CONTINUE 

UPDATE ANALYSIS. 


XNOM. 

N1=NXNOM 

N2=NXV 

DO 370 1=1 »NXAPRX 
RA(N1 )=RA(N1 )+RA(N2) 
N1=N1+1 
N2=N2M 

GLOBAL VARIABLES. 

N3=NXNOM 

N9=NIDV 
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DO 410 I=1,NXAPRX 

COPE2275 

C 



c 

DESIGN VARIABLE NUMBER . 

COPE2276 

C 

WRITE NEW X AND F VALUES ON ISCR2. 

COPE2336 


II=IA(N4) 

COPE2277 

C 


COPE2337 


IF (II.EQ.O) GO TO 400 

COPE2278 

C 

X- VECTOR. 

COPE2338 

c 

DESIGN VARIABLE UPDATE. 

COPE2279 


N1=NXNOM*NXAPRX-1 

COPE2339 


Nt=LOCI( 1 ) 

COPE2280 


WRITE ( 1SCR2 ) ( RAl I ) ,I=NXNOM»N1 ) 

COPE2340 


NZ=LOCI(2) 

COPE2281 

c 

FUNCTIONS. 

COPE2341 


N5=L0CR(5) 

COPE2282 


N1=NFNOmNF-1 

COPE2342 


DO 390 J=1, NDVTOT 

COPE2263 


WRITE ( ISCR2 ) (RA(I),I=NFN0M,N1 ) 

COPE2343 


IF ( IA( N2 ) .NE . II ) GO TO 380 

COPE2284 

c 

UPDATE PARAMETERS. 

COPE2344 

c 

UPDATE VARIABLE J. 

COPE2285 


NPTOT=NPTOT 4 1 

COPE2345 


JJ=IA(N1 ) 

COPE2286 


IF (JJJ.LT. 2. OR. KOUNT.LT. KMIN) INOM=NPTOT 

COPE2346 


ARRAY ( J J ) =RA( N3 )*RA( N5 ) 

COPE2287 

c 


C0PE2347 

380 

N 1 =N1 ♦ 1 

C0PE2288 

c 

CONVERGENCE CHECK. 

COPE2348 


N2=N2+t 

COPE2289 

c 




N5=N5+1 

COPE2290 


IF (KOUNT.LT. KMIN) GO TO 130 

COPE2350 

390 

CONTINUE 

COPE2291 


ICK2 = ICK2M 

COPE2351 

400 

N3=H3+1 

COPE2292 


ICK3=ICK3+1 

COPE2352 

410 

N4=N4*1 

COPE2293 


DEl=ABS( OBJ ) 

COPE2353 


IF ( IPAPRX.LT. 1 .OR. IPAPRX. EQ. 3) GO TO 420 

COPE2294 


IF (0EL.LT.1 .OE-6) DEL=1.0E-6 

COPE2354 

C 

PRINT APPROXIMATE OPTIMIZATION INFORMATION. 

COPE2295 


DEl=( OBJ-OBJSAV )/DEL 

COPE2355 


WRITE (6,740) 

COPE2296 


0El=AB5( DEL ) 

COPE2356 


N2=NXV*NDV-1 

CDPE2297 


DEL={ OBJ-OBJSAV )/DEt 

COPE2357 


WRITE (6,700) (RA(I),I=NXV,N2) 

COPE2298 


DEL=ABS(DEL) 

COPE235B 


WRITE (6,750) 

COPE2299 


IF (DEL.GT.DELFUN) ICK2=0 

COPE2359 


N2=NXNOM*NXAPRX-l 

COPE2300 


DEL=ABS( OBJ-OBJSAV) 

COPE2360 


WRITE (6,700) (RA( I ) , I =NXNOM » N2 ) 

COPE2301 


IF ( DEL. GT .DABFUN ) ICK3=0 

COPE2361 


WRITE (6,760) 

COPE2302 


IF ( ICK2 . GE . 2 . OR . ICK3 . GE . 2 ) GO TO 460 

COPE2362 


N2=NFNEW*NF-1 

COPE2303 


IF ( KOUNT. LT.KMAX) GO TO 130 

C0PE2363 


WRITE (6,700) (RA(I),I=NFNEW,N2) 

C0PE2304 

460 

CONTINUE 

COPE2364 

420 

CONTINUE 

COPE2305 

c 


C0PE2365 


IF ( ( ICK1 .GE.2.AND. KOUNT . GE . KMIN ) . AND . ( IPAPRX . GT . 0 . AND - 

. IPAPRX. NE.3C OPE 2 306 

C 

FINAL INFORMATION. 

COPE2366 


1)) WRITE (6,540) 

C0PE2307 

C 


COPE 2 36 7 


IF ( ICK1.GE. 2. AND. KOUNT. GE. KMIN) GO TO 460 

COPE2308 


IF ( IPAPRX. GT.O. AND. IPAPRX. NE. 3 1 WRITE (6,660) 

COPE2368 


ICALC=2 

COPE2309 

C 

GO BACK AND PICK BEST DESIGN. 

COPE2369 


NAN2=NAN2*1 

COPE231 0 


INOM=0 

C0PE2370 


CALL ANALIZ (ICALC) 

COPE231 1 


KOUNT=KMAX*1 

C0PE2371 

C 

NEW FUNCTION VALUES. 

COPE231 2 


IF (KOUNT. LT.JNOM) KOUNT =JNOM*1 

COPE2372 


N1=NFNOM 

COPE231 3 


CTSAV=CT 

C0PE2373 


M6=LOCI(6) 

COPE2314 


CTL5AV=CTL 

COPE2374 


DO 430 1=1 »NF 

COPE2315 


IF (ABS(CT).LT.I .OE-10) CT=-.004 

COPE2375 


II=IA(M6 ) 

COPE231 6 


IF (ABSICTL).LT.I .0E-10) CTL=-.001 

COPE2376 


M6=M6 4 1 

COPE231 7 


GO TO 160 

COPE2377 


RA(N1 )=ARRAY( II ) 

COPE231B 

470 

CONTINUE 

C0PE2370 

430 

NI=N1+1 

COPE 231 9 


CT-CTSAV 

COPE2379 


IF ( IPDBG.LT. 1 ) GO TO 440 

COPE2320 


CTl=CTLSAV 

COPE23QO 

C 

DEBUG OUTPUT. 

COPE232 1 

C 

STORE FINAL VALUES OF XNOM IN GLOBAL ARRAY. 

COPE23B1 


NAN3=NAN3*1 

COPE2322 


N3=NXNOM 

C0PE2382 


ICALC=3 

COPE2323 


N4=NIDV 

COPE2383 


CALL ANALIZ (ICALC) 

COFE2324 


DO 510 1=1 , NXAPRX 

COPE2384 

440 

CONTINUE 

COPE2325 

C 

DESIGN VARIABLE NUMBER. 

COPE23D5 


IF ( IPAPRX. IT. 1. OR. IPAPRX. EQ. 3) GO TO 450 

COPE2326 


II=IA(N4) 

COPE2386 

C 

PRINT PRECISE FUNCTION VALUES. 

COPE2327 


IF (II.EQ.O) GO TO 500 

COFE2387 


WRITE (6,770) 

COPE232B 

C 

DESIGN VARIABLE UPDATE. 

COFE238B 


N2=NFNOM + NF-1 

COPE2329 


N1=LOCI( 1 ) 

COPE2389 


WRITE (6,700) (RA(I),I=NFNOM,N2) 

COPE2330 

t 

N2=LOCI(2) 

COPE2390 

• 450 

CONTINUE 

COPE2331 

• 

N5=L0CRl 5 ) 

COPEC39I 

C 

NEW OBJECTIVE. 

COPE2332 


DO 490 J=1 ,NDVTOT 

COPE2392 


Nf =NFN0M 4 IO8JA- 1 

COPE2333 


IF (lA(NC).NE.II) GO TO 4Q0 

COPES 393 


OBJ=-RA(N1 )*SGNOPT 

COPE2334 

c 

UPDATE VARIABLE J. 

COPES 394 
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480 


490 
500 
5 1 0 
C 


520 

530 

C 

C 

C 

540 

550 

560 

570 

560 

590 

600 

610 

620 

630 

640 

650 


660 

670 

680 

690 

,700 

710 

720 

730 

740 

750 

760 

770 


JJ=IA(N1 ) 

ARRAY( JJ)=RA(N3)*PAIN5) 

Nl=N1M 
N2 = H2M 
N5=N5+1 
CONTINUE 
M3 = N3M 
N4=N4+1 

STORE FINAL VALUES OF FNOtt IN GLOBAL ARRAY. 
M6=LOCI(6> 

N1=NFNOM 
00 520 1=1 *NF 
II = IAI M6 ) 

M6=M6+1 

ARRAY( II )=RA( N1 ) 

N1=N1+t 

CONTINUE 

RETURN 


COPE2395 
COPE 2 396 
COPE2397 
COTE £ 398 
COPE2399 
COPE £400 
COPE £40 I 
COPE2402 
COPE2403 
COPE £404 
COPE2405 
COPE 2406 
COPE2407 
COPE2406 
COPE2409 
COPE24 1 0 
COPE241 I 
COPE 24 1 2 


FORMATS COPE24 ! 4 

— COPE 24 1 5 

FORMAT (//5X, 71HTWO CONSECUTIVE APPROXIMATE OPTIMIZATIONS HAVE PROCOPE2416 
1DUCED THE SAME DESIGN//5X , 2 3HOPTIMIZATION TERMINATED) COPE2417 

FORMAT ( /5X * 22HAPPROXIMATING FUNCTION , 15 , 1 7H IS THE OBJECTIVE) COPE2416 
FORMAT ( /5X >51 HAPPROXIMATING FUNCTIONS ASSOCIATED WITH CONSTRAINT5COPE241 9 

1 ) C0PE24Z0 

FORMAT (5X.10I5) COPE2421 

FORMAT (//5X.63HDESIGN VARIABLE NUMBERS ASSOCIATED WITH APPROXIMATCOPE2422 
1 ING VARIABLES) COPE2423 

FORMAT (//5X.59H* « LEAST SQUARES FIT TO APPROXIMATION DATA IS SINCOPE2424 
1GULAR • #/5X , 24HRE5ULT5 MAY NOT BE VALID) COPE2425 

FORMAT ( /5X » 1 5HFUNCTION NUMBER , 15 , 25H GLOBAL VARIABLE NUMBER ,I5/COPE2426 
15Xi 1 2HCOEFFICIENTS ) COPE2427 

FORMAT ( /5X » 44HSIDE CONSTRAINTS ON APPROXIMATE OPTIMIZATIOH//5X, 1 2COPE2428 
1H LOWER BOUNDS) COPE2429 

FORMAT ( /5X» 1 2HUPPER BOUNDS) COPE2430 

FORMAT ( //5X * 76HOPT IMIZATION HAS PRODUCEO AN X-VECTOR WHICH IS THECOPE2431 
1 SAME AS A PREVIOUS DESIGN) COPE2432 

FORMAT (/5X.51HTHE FOLLOWING DESIGN IS NOT THE APPROXIMATE OPTIMUHCOPE2433 
1 ) COPE2434 

FORMAT (/5X.60HFOUR ATTEMPTS HAVE FAILED TO PRODUCE AN INOEPENDENTCOFE2435 

1 X-VECTOR/5X 1 5 2HOPT IMIZATION WILL CONTINUE WITH MOST RECENT X-VECTCOPE2436 
20R ) COFE2437 

FORMAT ( 1H1 »4X,40HFINAL RESULT OF APPROXIMATE OPTIMIZATION) COPE2438 

FORMAT ( 1H1 ,4X,42HAPPROXIMATE OPTIMIZATION ITERATION HISTORY) COPE2439 

FORMAT (///5X.22HBEGIN ITERATION NUMBER, 15) COPE2440 

FORMAT ( /5X* 23HNOMINAL DESIGN NUMBER = , I 5//5X , 8HX- VECTOR ) COPE2441 

FORMAT l 5X ,5E 1 3.5 > COPE2442 

FORMAT I /5X , 1 5H FUNCTION VALUES) COPE2443 

FORMAT ( //5X » 26HTAY LOR SERIES COEFFICIENTS) C0PE2444 

FORMAT ( //5X » 35HRESULTS OF APPROXIMATE OPTIMIZATION) C0PE2445 

FORMAT (/5X.14HDELTA-X VECTOR) COPE£446 

FORMAT ( /5X »8HX-VECT0R ) COPE2447 

FORMAT ( /5X ► 2 7H APPROXIMATE FUNCTION VALUES) COPE2446 

FORMAT ( /5X » 2 3H PRECISE FUNCTION VALUES) COPE2449 

END COPE 2450 

SUBROUTINE COPE 1 0 ( XI , Y , XNOM, FNOM.NPTOT .KOUNT ,BLU , IGFN, IOBJA , ISC .NCOPE2451 
IXAPRXtNF , NCONA , SGNOPT f CTMIN iCTLMIN, ISCR2 , WGHT , INOM ,NPMAX * JNQM ) COPE2452 

DIMENSION XKNXAPRX.1 ), Y(NF,1), XNOH( 1 ) , FNOMtl), BLU(4,1), IGFNt COFE£453 
111, iscm, WGHTU ) COPE2454 
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IF (NP.LE.NPMAX) RETURN COPE2515 

C C0PEI5I6 

C REDUCE THE NUMBER OF DESIGNS TO NPMAX . COPE25 l 7 

C COPE2510 

NPMX1=NPMAX+1 COPEC5 1 9 

NP5AV=NP COPE2520 

DO 200 II=NPMX1 ,NPSAV COFE2521 

C FIND DESIGN WITH MINIMUM WEIGHTING FACTOR. COPE2522 

HMIN=WGHT1 1 ) COPE2523 

IMN=1 COPE2524 

DO 1 50 1 = 2, NP COPE2525 

IF (WGHT(I).GE.WMIN) GO TO 150 COPE2526 

WMIN=WGHT(I) COPE2527 

IMN=I COPE2520 

150 CONTINUE COPE2529 

IF ( IMN.EQ.NP) GO TO 190 C0PE2530 

C SHIFT XI, Y AND WGHT. COPE2531 

NPM1=NP-1 COPE2532 

DO 100 J=IMN,NPM1 COPE2533 

DO 160 1 = 1 ,NXAPRX COPE2534 

160 XI(I,J)=XI(I,J*1 ) COPE2535 

DO 170 1=1, HF COPE2536 

170 Y(I,J)=Y(I,J+1 ) COPE2537 

100 HGHTt I )=WGHT1 1*1 ) COPE2530 

190 NP=NP-1 COPE2539 

200 CONTINUE COPE2540 

RETURN COPE2541 

END COPE 2542 

SUBROUTINE COPE 1 1 ( NPTOT ,Y,NYR, INOM , BLU , NCONA , IGFN , IOBJA, SGNOPT , CTCOPE 2543 

IMIN.CTLMIN.ISC) COPEC544 

DIMENSION Y(NYR,1 ), BLU(4,1), IGFNl 1 ) , ISCMI COPE2545 

C ROUTINE TO DETERMINE NOMINAL DESIGN FOR APPROXIMATE OPTIMIZATION. COPE2547 

C w»«w«*«»™*«*****«*«*w*w*#o*#*JHH»**i*w***».twiiw**«i*w#**«*»w*M*w..«i<wcOPE254S 

C COPE2549 

C BY G. N. VANDERPLAATS JAN., 1979. COPE2550 

C NASA AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. COPE2551 

C NOMINAL DESIGN IS THE ONE WITH LOWEST OBJECTIVE SATISFYING ALL COPE2552 

C CONSTRAINTS. IF ALL DESIGNS VIOLATE CONSTRAINTS, THE DESIGN WITH COPE2553 

C THE LEAST VIOLATION IS FOUND. COPE2554 

C II IS DESIGN WITH LOWEST MAXIMUM CONSTRAINT VALUE. COPE2555 

C 12 IS THE DESIGN WITH THE LOWEST OBJECTIVE SATISFYING ALL COPE2556 

C CONSTRAINTS. COPE 2557 

CT1 = ABS( CTMIN ) CDPE2550 

IF (CT1 ,LT. 0.004) CT1=0.004 COPE2559 

CTL1 =ABStCTLMIN 1 COPE2560 

IF (CTL1 .LT. 0.001 ) CTL1=0. 001 COPE2561 

.C - - COPE2562 

C FIND MAXIMUM OBJECTIVE. COPE2563 

C - COPE2564 

OBJMAX=-Y( IOBJA, 1 )»5GN0PT COPE2565 

DO 10 J=2, NPTOT COPE2566 

OBJ=-Y< IOBJA, J)»SGNOPT COPE2567 

IF (OBJ.GT.OBJMAX) OBJMAX=OBJ COPE2568 

10 CONTINUE COPE2569 

_C C0PE2570 

-C NOW FIND DESIGN VARIABLE WITH LOWEST OBJECTIVE SATISFYING ALL COPE2571 

C CONSTRAINTS AND DESIGN WITH LEAST CONSTRAINT VIOLATION. COPE2572 

C - - COrE2S73 

GMAX=1 . 0E 4 20 COPE2574 


11 = 1 
12 = 0 

DO 50 J=1 .NPTOT 
OBJECTIVE. 

0BJ=-Y1 IOBJA, J)*SGNOPT 
CONSTRAINTS. 

ICON=0 
G1=-1 . 

DO 30 1=1, NCONA 
II=IGFN(I) 

GG=Y( II , J ) 

LOWER BOUND. 

IF CBLUM ,I).LT.-1.0E*15> GO TO 20 

IC0N=IC0N+1 

CT=CT1 

IF ( ISC( ICON ) . GT . 0 ) CT=CTL1 
G=(BLU( I ,1 )-GG)/BLU(2,I )-CT 
IF (G.GT.G1 ) G1=G 
UPPER BOUND. 

IF (BLU! 3,I).GT.1 .OE+15) GO TO 30 

IC0N=IC0NM 

CT=CT1 

IF ( ISC(ICON).GT.O) CT=CTL1 
G=( GG-BLU( 3 ,1 ) )/BLU( 4 , 1 )-CT 
IF (G.GT.G1 ) G1=G 
CONTINUE 

IF (G1 .LT.O. .OR.G1 .GT.GMAX) GO TO 40 

I1=J 

GMAX=G1 

IF (OBJ.GT.OBJMAX. OR. G1 .GT.O. ) GO TO 50 
I2=J 

OBJMAX=OBJ 
CONTINUE 
INOM=I 1 

IF (12. GT.O) INOM=I2 

RETURN 

END 

SUBROUTINE COPE 12 


ROUTINE TO PERFORM A LEAST SQUARES FIT OF AN ARBITRARY FUNCTION 
NV VARIABLES. 

Y = FIX! >X2 B B( 1 )*F( 1 ) + B(2)#F(2) ♦ ... ♦ B( M )**F( M ) 


BY G. N. VANDERPLAATS JAN., 1979. 

NASA AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 

•ARGUEMENTS, 

X, Y - INPUT ARRAYS OF OBSERVATIONS OF HP POINTS 
X(NX,NP), Y(NF.NP) 

NX - NUMBER OF INDEPENDENT VARIABLES OF WHICH Y IS A FUNCTION 

NP - NUMBER OF OBSERVATION POINTS. 

NF - NUMBER OF SEPERATE CURVE FITS BEING DONE SIMULTANEOUSLY. 

THIS IS THE NUMBER OF SETS OF Y VALUES. 

M - NUMBER OF COMPONENTS OF THE FUNCTIONS TO BE FITTEO. 

B - APRAY OF M COEFFICIENTS OF FUNCTIONAL FIT TO DATE. 

A - M( MM )/2 WORK VECTOR. 

F - WORK VECTOR - F( M ) . 

G - WORK VECTOR - G( NF ) . 

NXR - DIMENSIONED ROWS OF X. 

NYR - DIMENSIONED ROUS OF Y. 


COPE2575 
COPE2576 
COPE2577 
C0PE2570 
COPE2579 
COPE2DBO 
COPE2501 
COPE2502 
COPE2503 
CDPEC504 
CDPE2505 
COPE2506 
COPE2537 
COPE2500 
COPE2509 
COPE2590 
COPE2D91 
COPE2592 
COPE2593 
COPE2594 
COPE2595 
COPE2596 
COPE2597 
COPE2590 
COPE2599 
COPE26QO 
C0PE2601 
COPE2602 
COPE2603 
COPE2604 
COPE2605 
COPE2606 
COPE2607 
COPE26O0 
COPE2609 
COPE261 0 
COPE261 1 
C0PE261 2 
»«*COPE2613 
0FC0PE2614 
COPE261 5 
COPE 26 16 
n*COPE2617 
COPE2610 
COPE261 9 
COPE2620 
COPE2621 
COPE2622 
COPE2623 
. COPEC624 
COPE2625 
COPE2626 
COPE2627 
COPE 2620 
COPE2629 
COPE2630 
COPE2631 
COPE2632 
CDPEC633 
C0PE2634 
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c 

MBR - DIMENSIONED ROWS OF B. 

COPE2635 


L=LM 




COPE2695 

c 

WGHT - ARRAY Or WEIGHTING FACTORS - WGHT(NP). 

COPE2636 

SO 

A( L )=A( L)+F( I )»Fl J)*»WGHTK 




COPE2696 

c 

NER - ERROR FLAG. IF NCR.GT.0, DIAGONAL ELEMENT NEP OF A IS 

C0PEC637 

C 

Y*F 




COPE2697 

c 

LESS THAN 1 .0E-1Q. 

COPEC638 


DO 90 1=1 ,NF 




COPE2698 

c 


COPE2639 


YLK=Y( L,K )*WGHTK 




COTE2699 

c 

USER SUPPLIED SUBROUTINE . COPE13. 

COPC2640 


DO 90 1=1 *M 




COPE2700 

c 

USAGE 

COPE2641 

90 

B( I, U = B( I ,L)+YLK*F(I) 




COPE2701 

c 

CALL COPE13LXI.F ,HX,m 

COPC2642 

100 

CONTINUE 




COFE2702 

c 

ROUTINE TO EVALUATE COMPONENTS FID FI M 1 WHICH ARE TO BE 

COPEC643 

C 

SOLVE FO^ B. 




COPE2703 

c 

FITTED TO DATA. 

COPE2644 


IF (M. LE . 1 ) GO TO 200 




COPE2704 

c 

TO DATA. ROUTINE EVALUATES THE FUNCTIONS FOR A SINGLE VECTOR OF 

COPE2645 

c 

LDU DECOMPOSITION. 




COPE2705 

c 

XI AND 5TDPES THE RESULTING VALUES IN VECTOR F. 

COPE2646 


MM 1 = M- 1 




COPE2706 

c 

ARGUEMENTS. 

COPE2647 


KK = 0 




COPE2707 

c 

XI - VECTOR OF INDEPENDENT VARIABLES AT WHICH FUNCTIONS ARE 

COPE2648 


DO 110 K= 1 , MM1 




COPE2708 

c 

TO BE EVALUATED. 

COPE2649 


NER = K 




C0PE2709 

c 

F - VECTOR OF FUNCTION VALUES. 

COPE2650 


. KK=KK+K 




COPE2710 

c 

NX - NUMBER OF INDEPENDENT VARIABLES OF WHICH Y IS A FUNCTION. 

COPE2651 


IF t ABS(AtKK) J.LT.1 .0E-20) 

GO 

TO 

220 

COPE271 1 

c 

M - NUMBER OF FUNCTION COMPONENTS, ALSO REQUIRED DIMENSION OF 

FCOPE2652 


FACT= 1 . /At KK ) 




COPE2712 

c 


COPE2653 


A( KK ) = FACT 




COPE271 3 


SUBROUTINE COPE12 ( X,Y,NX ,NP,NF ,M,B,A,F ,G,NXR ,NYR ,NBR , WGHT, NER ) 

COPE2654 


KP1 =K+ 1 




COPE271 4 


DIMENSION X( NXR , 1 ) , Y( NYR , 1 ) , BtNBR.U, AM), F(1), GM ) 

COPE2655 


KJ = KK 




COPE 271 5 


DIMENSION WGHT( 1 ) 

COPE2656 


DO 110 J=KP 1 , M 




COPE2716 


IF (NX.LE.NP) GO TO 50 

COPE2657 


KJ=KJ+J-1 




COPE27I 7 

c 

SPECIAL CASE. FEWER OBSERVATIONS THAN DESIGN VARIABLES. USE 

COPE2658 


GG = At KJ )*FACT 




COPE271B 

c 

AVERAGE FINITE DIFFERENCE FOR FIRST ORDER EXPANSION. 

COPE2659 


KI=KK 




COPE271 9 


NPt =NPM 

COPE2660 


I J=K J 




COPE2720 


AP-FLOAT(NP) 

COPE266I 


DO 1 1 0 I=KP1 ,J 




C0PE272 1 


DO 20 1=1 , NX 

COPE2662 


I J = I J* 1 




COPE2722 


X( I ,NP1 )=AP 

COPE2663 


KI=KI+I-1 




C0PE2723 


DO 10 J=1 * NP 

COPE2664 


A(IJ)=A(IJ)-A(KI )#GG 




C0PE2724 


IF ( ABSt X( I , J ) ) .GT. 1 .0E-10) GO TO 10 

COPE2665 

110 

CONTINUE 




C0PE2725 


Xtl.NPI )=X1 1.HP1 )-1 . 

COPE 2666 


KK=KK+M 




COPE2726 


X( I, J ) = 1 .0E+20 

COPE 266 7 


NER = M 




COPE2727 

10 

CONTINUE 

COPE2668 


IF (ABSIA(XK) J.LT.1 . 0E-20 ) 

GO 

TO 

220 

COPE272B 


IF (Xtl.NPI J.LT.1. 1 Xtl.NPI ) = 1. 

COPE 266 9 


AC KK 1 = 1 . /At KK ) 




COPE2729 

20 

CONTINUE 

COPE2670 

c 

FOPWARD SUBSTITUTION 




COPE2730 


DO 40 1=1 »NX 

COPE2671 


MP1=MM 




COPE2731 


DO 40 J=1 ,NF 

COTE2672 


KK = 0 




C0PE2732 


B( I,J) = 0. 

COPE2673 


DO 130 K= 1 ,MM1 




COPE 2733 


DO 30 K=1 ,NP 

COPE2674 


KP1=K+1 




COPE2734 

30 

B(I,J J=B( I,J)U( J,K)/XtI,K) 

COPEC675 


KK=KK *K 




COPE2735 

40 

B( 1 1 J ) — Bt 1 1 J )/X( I »NP1 ) 

COPE2676 


AKK=A( KK ) 




COPE2736 


NER = 0 

COPE 26 7 7 


DO 120 L= 1 , NF 




COPE2737 


RETURN 

COPE2678 

120 

Bt K , L J =B( K , L )*AKK 




COPE2738 

50 

CONTINUE 

COPE2679 


KI=KK 




C0PE2739 

c 

GENERAL CASE. DO LEAST SQUARES FIT. 

COPE2680 


DO 130 I=KP1 ,M 




COrE2740 

c 

A=B=0. 

COPE266I 


KI=KI * I- 1 




C0PE2741 


DO 60 J=1 , NF 

COPE 2662 


AKI -At KI ) 




COPE2742 


DO 60 1=1 , M 

COPE 2683 


DO 1 30 J=1 , NF 




COPE2743 

60 

B( I , J ) = 0 . 

COPE2684 


Bt I , J )=D( I ,J ) -AK I#B( K , J ) 




C0PE2744 


L=IM»(MM ) J/2 

COPE2685 

130 

CONTINUE 




COPE2745 


DO 70 J= 1 , L 

COPE2686 


KK=KK*M 




C0PE2746 

70 

A( J 1 = 0 . 

COPE2687 


AKK=A(KK) 




COPC2747 

C 

LOWER TRIANGLE OF A IN SYMMETRIC MODE. 

COPE 2688 


DO 140 J=1 ,NF 




C0PE2748 


DO 1 00 K=1 , NP 

COPE 2689 

140 

BIM,J)=B(M,J)»AKK 




C0PE2749 


WGHTK-WGHTl K ) 

COPE2690 

„C 

BACK SUBSTITUTION. 




COPE2750 


CALL COPE 1 3 (X( 1 ,K),F,NX,M) 

COTE269 1 

. 

DO 190 1=2, M 




C0PE2751 


L=0 

COPE2692 


J=MP1-I 




COPE2752 


DO 80 J=1 , M 

COPE2693 


JJ=J#( JM )/2 




COPE2753 


DO 80 1=1 ,J 

C0PE2694 


JK = J J 




COPE2754 
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JP1 =J*1 C0PEC755 30 

00 150 L=1 ,NF COPE 2 756 40 

150 G(U = 0. C0PC2757 

DO 170 K=JP1,M COPE2750 

JK=JK+K-1 C0PEC759 

AJK=AIJK) COPE2760 

DO 160 L=1,NF COFE276 1 

160 G( L)=G( L)+AJK*B(K,L) COPE2762 C 

170 CONTINUE COPE2763 C 

AJJ=A(JJ) COPE2764 C 

DO IfiO L= 1 ,NF COPE2765 C 

160 B( J,L)=B(J,L)-AJJ*G( L) COPE2766 C 

190 CONTINUE COPE2767 C 

NER=G C0PE2766 C 

RETURN COPE2769 C 

200 CONTINUE C0PE2770 C 

AKK=A( 1 ) COPE2771 C 

NER=1 COPE2772 

IF (ABS(AKK).LT.I .0E-20) GO TO 220 C0PE2773 C 

AKK=1./AKK C0PE2774 C 

DO 210 J = 1 ,NF COPE2775 C 

210 BM.J)=B(1 ,JH*AKK COPE2776 C 

NER = 0 COPE2777 

RETURN COFE2776 

220 CONTINUE COPE2779 

RETURN COFE2760 

END COPE2761 C 

SUBROUTINE CQPE13 (X,F,NX,M) COPE2762 

DIMENSION X( 1 ) ► Ft 1 ) COPE2763 

C *MMI*»««*#**#*#«*»*O*«#W***»***«lHM*O«l»*»l#»l>l*«*IM«**IM«****)*#«tl* ( »C0PE27e4 

C ROUTINE TO CALCULATE F VALUES FOR LEAST SQUARES FIT TO QUADRATIC COPE2765 

C Y-TO □ DT-TRANSPOSE TIMES X + (1/2 X-TRANSPOSE TIMES H TIMES X. C0FE2766 C 

C COPE 2 766 C 

C BY G. N. VANDERPLAATS JAN., 1979. C0PE2769 C 

C X CONTAINS X-XO. COPE2790 

C M = MAXIMUM NUMBER OF COEFFICIENTS TO BE CALCULATED. COPE2791 

C M .LE. NX ♦ (NX+H/2. COPE2792 

C DY COEF. COFE2793 

DO 10 1=1 ,NX COPE2794 C 

10 F(I)=X(I) COPE2795 

C H COEF. = X1«X1, X2*X2 , ... XN»XN, Xt«X2... X1*XN... COPE2796 

II=NX COPE2797 

C - - --COPE2796 

C DIAGONAL ELEMENTS. COPE2799 C 

C - COPE 2600 C 

DO 20 1=1 ,NX COPE260 1 C 

11=11+1 COPE2802 

IF (II.GT.M) GO TO 40 COPE2603 

20 FtII)=.5»(XII)»H»2) COPE20O4 

IF (NX.LT.2) RETURN COPE2805 

C - COPE2606 

C OFF-DIAGONAL ELEMENTS. COPE2607 

C COPE2806 

NXM1 =NX- 1 COPE20O9 

, DO 30 1 = 1 »NXM1 COPE20 1 0 . 

IP1=I+1 COPE201 l -C 

DO 30 J=IP1 , NX COPE20I2 

11=11+1 COPE281 3 

IF (II.GT.M) GO TO 40 COrE2814 
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C 

C 


c 


c 


c 


c 


10 

20 

30 


C 


C 


40 

C 

C 

,c 

50 

60 

70 

80 

90 

100 

,110 

.120 

130 

140 


WRITE (6,160) 

WRITE (6,130) ( RA( I ) , I=NBTAY »N2 ) 

IF (NP.LE.NXAPRX) GO TO 20 
IF ( MAXTRM . LT. 2 ) GO TO 20 
NON- LINEAR TERMS. 

N1 = LOCATION OF FIRST DIAGONAL ELEMENT. 

N1=N2 + 1 

N2 = LOCATION OF LAST DIAGONAL ELEMENT. 

N2=NXAPRX 

IF (N2.GT.NP) N2=NP 
N2=N2 + N1 -1 

N3=LOCATION OF FIRST OFF-DIAGONAL ELEMENT. 

N3=N2+1 

N4= LOCATION OF LAST OFF-DIAGONAL ELEMENT. 

N4=NBR 

IF ( N4.GT.NP ) N4=NP 
N4=N4-2*NXAPRX+N3-1 

LL = LOCATION OF LAST OFF-DIAGONAL ELEMENT - THIS ROW. 

WRITE (6,190) 

11=1 

DO 10 I - N 1 »N2 
WRITE (6,180) II 
11=11+1 

LL=N3+NXAPRX-II 
IF (LL.GT.N4) LL=N4 
IF (LL.LT.N3) WRITE (6,130) RAID 
IF (LL.GE.N3) WRITE (6,130) RA( I ) , ( RA( J ) , J=N3, LU 
N3= LL+ 1 
CONTINUE 
NBTAY=NBTAY+NBR 
CONTINUE 

IF ( 1PAPRX.LT. 3) RETURN 
REWIND ISCR2 
WRITE (6,50) 

DO 40 1=1 »NPTOT 
X-VECTOR. 

READ ( ISCR2 ) ( RA( J ) , J= 1 ,NXAPRX ) 

WRITE (6,60) I 

WRITE (6,130) (RA( J),J=1 ,NXAPRX) 

FUNCTION VALUES. 

READ ( ISCR2 ) (RA(J),J=1 »NF ) 

WRITE (6,70) 

WRITE (6,130) (RA( J),J=1 ,NF) 

CONTINUE 
RETURN 

FORMATS 

FORMAT ( ///5X , 1 8HSUMMARY OF DESIGNS) 

FORMAT ( /5X» 1 3HDESIGN NUMBER , I5/5X ,8HX-VECTOR ) 

FORMAT ( /5X , 1 5HFUNCTI0N VALUES) 

FORMAT ( //5X , 9H PARAMETER , 15 , 1 8H = GLOBAL VARIABLE, 15) 

FORMAT ( 1H1 ,4X,44HRESULTS OF APPROXIMATE ANA LYSIS/OPT IMIZATION///5COPE 2 92 7 
1X,5HTITLE/5X,20A4) C0PE2928 

FORMAT ( ///5X , 3 1 HGLOBAL LOCATIONS OF X-VARIABLES ) COPE2929 

FORMAT ( 5X , 1 015 ) COPE2930 

FORMAT ( //5X, 25HAPPROXIMATION IS BASED 0N,I5,8H DESIGNS//5X,3IHNOMCOPE2931 
1 1NAL DESIGN IS DESIGN NUMBER , I5//5X , 2 1 HVALUES OF X-VARIABLES) C0PE2932 
FORMAT ( 5X ,5E1 3 . 4 ) COPE2933 

FORMAT ( //5X , 35HGLOBA L LOCATIONS OF FUNCTIONS, FtX)) COPE2934 


COPE2875 
COPE2076 
COPE2877 
C0PE2878 
COPE2079 
COPE 2880 
COPE2881 
COPE2802 
COPE2083 
COPE2804 
COPE2885 
COPE2886 
COPE2807 
C0PE2888 
COPE 2889 
COPE2890 
COPE2891 
COPE2892 
COPE2093 
COPE2894 
COPE2095 
COPE2096 
COPE2097 
COPE2898 
COPE2899 
C0PE2900 
COPE 290 1 
COPE2902 
COPE2903 
COPE2904 
C0PE2905 
COPE2906 
COPE 2 907 
COPE2908 
COPE 2909 
COPE29 1 0 
COPE291 1 
C0PE291 Z 
COPE291 3 
COPE291 4 
COPE2915 
COPE 291 6 
COPE291 7 
COPE291 0 
COPE291 9 
•-COPE2920 
COPE292 1 
■-COPEZ922 
COPE2923 
COPE2924 
COPE2925 
COPE2926 


150 FORMAT ( //5X , 25HVALUES OF FUNCTIONS, F( X ) ) C0PE2935 

160 FORMAT ( /5X, 1 9HLINEAR TERMS, DEL F) COPE2936 

170 FORMAT f ///5X,39HCOEFFICIENTS OF TAYLOR SERIES EXPANSION) C0PE2937 

180 FORMAT ( /5X»3NROll, 15 ) COPE2933 

190 FORMAT ( //5X , 51 HNON- LINEAR TERMS, H, BEGINING WITH DIAGONAL ELEMENC0PE2939 

IT) COPE2940 

END COPE294 1 

SUBROUTINE C0PE15 ( XV , G , D F , A , I SC , IC , NN 1 ,BLU,NX1 , IOBJA ,M , FNOM , FNEW , COPE 2942 
1 BTAY , NGR , IGFN ,CT , CTL , INFO , NAC .NCONA , NDV , NF , OBJ , SGNOPT ) CQPE294 3 

DIMENSION XV(1), FNOM( 1 ) • FNEWt 1 ) , A(NN1,1), BTAY( NBR , 1 ) , DF(1), ICOPE2944 
IGFN(I), I5C( 1 ) , IC(1), G( 1 ) , BLU( 4,1) COPE2945 

C FUNCTION EVALUATION FOR APPROXIMATE OPTIMIZATION. COPE2947 

C MKKttKMWtfKMMM»KM»K»ft*MMtfMMHtfMK»W«M«N*Ntt#COPE2948 

C BY G. N. VANDERPLAAT5 JAN., 1 979 . COPE2949 

C NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. COPE2950 

C COPE2951 

C - COPE2952 

C OBJECTIVE. COPE2953 

C - -COPE 2954 

CALL COPE 1 6 (NXI , XV, NF , FNOM, FNEW, BTAY, NBR, M) COPE2955 

OBJ = -FNEWl IOBJA )#SGNOPT COFE2956 

IF (INFO.EQ. 1 ) GO TO 20 COPE2957 

C GRADIENT OF OBJECTIVE. COFE2956 

CALL COPE17 (NXI , XV, IOBJA, BTAY, NBR, M,DF ) COPE2959 

DO 10 1=1 ,NDV COPE2960 

10 DF(I)=-DF(I)«SGNOPT COPE2961 

20 CONTINUE COPE2962 

IF ( NCONA. LE.O) GO TO 80 COPE2963 

C - COPE2964 

C CONSTRAINTS. COPE2965 

C - - - COPE2966 

IF (INFO.EQ. 2) NAC=0 C0PE2967 

ICON=0 COPE2968 

DO 70 1=1, NCONA COFE2969 

J=IGFN( I ) C0PE2970 

GG=FNEW( J ) C0PE2971 

C LOWER BOUND. C0PE2972 

IF 1BLU( 1 iU.LT.-1 .OE+15) GO TO 40 COPE2973 

ICON=ICONM COPE2974 

G( ICON ) = ( BLU( 1 , 1 )-GG )/BLU( 2,1) C0PE2975 

IF ( INFO.EQ. 1) GO TO 40 COPE2976 

C IS THIS CONSTRAINT ACTIVE OR VIOLATED. C0PE2977 

CTI=CT COPE2976 

IF ( ISC ( ICON ) . GT . 0 ) CTI=CTL C0PE2979 

IF ( G( ICON) . LT.CTI ) GO TO 40 C0PE2980 

C ACTIVE CONSTRAINT. CALCULATE GRADIENT. C0PE2931 

. NAC=NAC+ 1 C0PE2982 

ICl NAC )=IC0N COPE2983 

MM=M COPE2904 

IF ( ISC ( ICON ) . GT . 0 ) MM=NDV COPE2905 

CALL COrE17 (NXI , XV, J, BTAY, NBR, MM, A(1 , NAC)) COPE2906 

FF = 1 . /BLU( 2 » I ) COPE2987 

DO 30 K= 1 , NDV COPE2908 

30 A(K,NACI=-A(K,NAC)*FF COPE29S9 

,40 IF (BLUI 3,1 J.GT.1 .OE+15) GO TO 60 COPE2990 

. ICOM= ICON+ 1 C0rEC991 

G( ICON ) = l GG-BLUl 3,1) 1/BLU(4,I ) C0PE2992 

IF ( INFO.EQ. 1 ) GO TO 60 COPE2993 

C IS THIS CONSTRAINT ACTIVE OR VIOLATED. COPE2994 
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50 

60 

70 

80 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

,c 

c 


} 0 
c 
c 
c 
,c 
•c 
c 
c 


CTI=CT COPE2995 
IF ( ISCI ICON ) .GT.O ) CTI=CTl COPE2996 
IF CG(ICON).LT.CTI) GO TO 60 COPE2997 
ACTIVE CONSTRAINT. CALCULATE GRADIENT. COPE 2998 
NAC=NAC+t COPE 2 999 
IC(HAC)=ICON COPE 3000 
m=H COPE3Q01 
IF 1 ISCI ICON ) .GT. 0 ) MM=NDV COPE3002 
CALL COPE1 7 ( NX1 ,XV, J ,BTAY ,NSR >MM, A( 1 ,NAC ) ) COPE3003 
FF = ! ./BLU(A,I ) COPE300A 
OO 50 K = 1 »N0V COPE3005 
AfK,MAC)=A(K,NAC)*FF COPE3006 
CONTINUE COPE3007 
CONTINUE COPE3OO0 
CONTINUE COPE3009 
RETURN COPE 30 10 
END COrE3011 
SUBROUTINE COPE 16 t NX ,X,NF ,FNOM,FNEW,B,NBR ,M ) COPE 30 12 
««*« «'<'«*»«' IHf«ir»»,'V«»l(MrtK««N«ttCOPE30 I ^ 
ROUTINE TO EVALUATE FUNCTIONS APPROXIMATED BY TAILER SERIES COFE301A 
EXPANSION UP TO SECOND OROER. COrE3015 
#«tf ««****» M«NKK«**K*ff* «»4 ****««*« »««»««»«« «M«« »«****#* H&COPE 30 1 6 
BY G. N. VANDERPLAAT5 MAR., 1978. COPE3017 
NAVAL SHIP R AND D CENTER. COPE 30 18 

COPE301 9 

F = FO + DELF TIMES X ♦ X-TRANSPOSE TIMES OEL2F TINES X. COPE3020 
ARGUEMENTS. COPE3021 
NX - NUMBER OF INDEPENDENT VARIABLES CONTAINED IN X. COPE3022 
X - VECTOR OF DELTA VARIABLES X-XNOM. DIMENSIONED XI NX) COPE3023 
NF - NUMBER OF FUNCTIONS TO BE EVALUATED. COPE 3024 
FNQM - NOMINAL FUNCTION VALUES ABOUT WHICH TAYLER SERIES EXPANSIONCOPE3025 
HAS DONE. COPE 3026 
FNEW - NEW APPROXIMATED VALUES. ** OUTPUT. DIMENSIONED FNEWCNF) COPE 3027 


DIMENSIONED FNEWCNF) 


B - MATRIX OF TAYLER SERIES COEFFICIENTS. 

BII.JJ CONTAINS DEL F, 1=1, NX. 

B(NX*I,J) CONTAINS DEL2 TERMS, I = 1 ,NX*( NXM )/2 . 
MINIMUM DIMENSIONS - B( M,NF ) . 

NBR - DIMENSIONED ROWS OF B. 

M - TOTAL NUMBER OF COEFFICIENTS CURRENTLY USED. 

DIMENSION XII), FNOnill, FNEMM), BCNBR, 1 ) 

DO 50 J=1 ,NF 

CONSTANT TERM. 


FIRST ORDER TERMS. 


DO 10 1=1, NX 

IF (I.GT.M) GO TO AO 

F=F*BCI,J)*X(I) 


SECOND ORDER TERMS. 


DIAGONAL ELEMENTS. 
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C 

C 


30 

40 


C 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

10 

,c 

c 

c 

c 


OFF-DIAGONAL ELEMENTS. 


IF (NX.LT.2) GO TO 40 
NXM1=NX-1 
DO 30 1=1 ,NXM1 
IP1=I+1 

DO 30 K=IP1 »NX 
11 = 11+ t 

IF (II.GT.M) GO TO 40 

GRAD(I)=GRAOm*B(II,J)*X1K1 

GRAD(K)=GRAD(K)+B(II,J)*X(I) 

CONTINUE 

RETURN 

END 

SUBROUTINE COPE 1 B ( IOBJ »NDVTOT »NCONA ,RA »IA » LOCR , LOCI * ARRAY ) 

« * ftftff * * * * M # ** ***** *** * ** KM * *** ** **** * ** * * ** It «**»*«* * * ** * *** ** * ** * * * * * 

ROUTINE TO PRINT OPTIMIZATION RESULTS 


BY G. N. VANDERPLAATS 

NASA AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 
DIMENSION RAM), IA( 1 ) , LOCRM1, LOCI(I), ARRAYM ) 
OBJECTIVE FUNCTION AND DESIGN VARIABLES. 

WRITE (6,30) IOBJ , ARRAY ( IOB J ) 

N2=LOCR( 2 ) 

N3=LOCR( 3) 

N5=L0CR(5) 

M2=LOCI( 2 ) 

DO 10 1=1 ,NDVTOT 
DESIGN VARIABLE NUMBER. 

IDV=IA( M2 ) 

N2 = LOCR( 2 ) + IDV-1 
N3=LOCR( 3 ) +IDV-1 
M2=M2+1 

GLOBAL LOCATION. 

IG=IA(I) 

MULTIPLIER. 

AMULT=RA(N5) 

N5=N5+1 
LOWER BOUND. 

BL=AMULT*RA(N2) 

VALUE. 

XX=ARRAYl IG ) 

UPPER BOUND. 

BU=AMULT*RA(N3) 

WRITE (6,40) I , IDV, IG »BL>XX,BU 
CONTINUE 

IF (NCONA.EQ.O) RETURN 
CONSTRAINTS. 

WRITE (6,50) 

M3= LOCI ( 3 ) 

N6=LOCR< 6 ) 

ID=1 

IF (RA(N6 J.LT.-1 . 0E+ 1 5 . AND . RA( N6+2 ) .GT . 1 .OE+15) ID=0 
DO 20 1=1 , NCONA 
GLOBAL LOCATION. 

IG=IA(M3) 

M3=M3+1 
LOWER BOUND. 

BL = RA(N6) 

VALUE. 


XX=ARRAY ( IG 1 COPE3175 

C UPPER BOUND. C0PE3176 

BU=RA( N6 + 2 ) COPE31 77 

N6=N6+4 COPE3170 

C IDENTIFICATION NUMBER. COPE3179 

JD= ID C0PE31 00 

IF (BL.GT.-1 .OE+15) ID = ID+1 COPE 3181 

IF (BU.LT.1. OE+15) ID=ID+1 COPE3102 

WRITE (6,60) JO , IG ,BL ,XX , BU COPE3103 

20 CONTINUE COPE3104 

RETURN COFE31 05 

C — - - - COPE 31 06 

C FORMATS COPE3167 

C - COPE31 00 

30 FORMAT ( 1H1 , 4X , 20HOPTIMIZATION RESULTS///5X » 1 8H0BJECTIVE FUNCTION/COPE 31 09 

1 5X, 1 5HGLOBAL LOCATION , 15 , 5X , 1 4HFUNCTION VALUE , E 1 2 . 5//V5X , 1 6HDESIGNCOPE3 1 90 
2 VARIABLES//14X.5HD. V . , 5X ,6HGLOBAL , 7X , 5HLOMER , 2 3X, 5HUPFER/0X ,2HIDCOPE 31 91 
3 , 5X , 3HNO . ,5X,0HVAR . NO. , 6X , SBBOUND , 9X , 5H VALUE , 9X , 5HBOUHD > COPE3192 

40 FORMAT (110,17,111 ,3X,3E14. 5) COPE3193 

50 FORMAT ( ///5X , 1 8HDESIGN CONSTRAINTS//! 5X ,6HGL0BAL , 7X , 5HLOWER , 23X, SCOPE 31 94 

1 HUPPER/9X , 2HID , 4X , 6HVAR . NO. , 6X , 5H BOUND , 9X , 5HVALUE , 9X , 5HBOUND ) COPE3195 

60 FORMAT 1110,19, 3X, 3E14 .5 ) COPE3196 

END COPE31 97 

// 
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SUBROUTINE COHMIN ( X, VLB, VUB,G,SCAL ,DF , A , S , 61 ,G2 ,B ,C , ISC , IC ,MS1 ,N1 CONMIN 2 
1 >N2,N3,N4,N5) CONMIN 3 

COMMON /CNMNt/ OELFUN, OABFUN, FDCH , FDCHM,CT .CTMIN.CTL .CTLMIN, ALPHAXCONMIN 4 
I , ABOBJ t >THETA »OBJ ,N0V»NCCN,N5IDE , IPRINT »NFDG »N5CAL , LINOBJ » UMAX » ITCONMIN 5 
2RM,ICNDIR,IGOTO, MAC, INFO, INFOG, ITER COHMIN 6 

DIMENSION X( Ht ) , VLB(NI), VUB(NI), G(N2>, SCAL(NI), DFIN1), A(N1 .NCONMIN 7 
J 3 ) » S(N1 )» G1 ( N2 ) » G2( N2 ) » B(N3,N3), C(N4), ISCIN2), ICCN3), MSI (NCONMIN 8 
25) COHMIN 9 

COMMON /CONSAV/ DM1 ,0M2 » DM3, DM4 , DM5 , DM6 , DM7, DM8 .DM9, DM1 0 »DMt 1 ,DM1 2C0NMIN1 0 
1 ,DCT,OCTL, PHI, ABOBJ, CTA,CTAM,CTBM, OBJ! , SLOPE ,DX,DX1 ,FI ,XI ,DF TDF 1 , ACONHIN1 1 
2LP ,FFF *A1 , A2 , A3, A4 , F 1 ,F2,F3,F4,CV1 ,CV2 ,CV3»CV4 ,APP, ALPCA, ALPFES , AICONMIN1 2 
3PIN, AlPMIM » ALPNC, ALPSAV, ALPSID , ALPTOT , RSPACE , IDM1 , IOM2 , IDM3 , JOIR , 1CONMIN1 3 
40BJ ,K03J .KCOUNT ,NCAL( 2 ) *NFEAS»MSCAL,NCODJ ,MVC .KOUNT , ICOUNT , IGOOD1 .C0NMIN14 
5IG00D2 , IG00D3, 1G00D4, IBEST , III ,NUNC » JGOTO , ISPACE ( 2 ) COMMIN1 5 

ROUTINE TO SOLVE CONSTRAINED OR UNCONSTRAINED FUNCTION C0NMIN16 

MINIMIZATION. CONMINI7 

BY G. N. VANDERPLAATS APRIL, 1972. C0IIMIN16 

#*##m****w* JUNE, 1979 VERSION *•*#••••** ♦‘C0NMIN19 
NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. CONMIN20 

REFERENCE; CONMIN - A FORTRAN PROGRAM FOR CONSTRAINED FUNCTION CONMIN21 
MINIMIZATION: USER’S MANUAL, BY G. N. VANDERPLAATS, CONMIN22 

NASA TM X-62,282, AUGUST, 1973. CONMIN23 

STORAGE REQUIREMENTS* C0NMIN24 

PROGRAM - 7000 OECIMAL WORDS ( CDC COMPUTER) CONMIN25 

ARRAYS - APPROX. 2»( NDV«*2 )+26«NDV«4»NC0N, CONMIN26 

WHERE N3 = NDV+2. CONMIN27 

RE-SCALE VARIABLES IF REQUIPEO. CON))IN28 

IF (NSCAL.EQ.O.QR.IGQTO.EQ.O ) GO TO 20 CONMIN29 

DO 10 1=1, NDV CONMIN30 

XI I l=C( I ) COMMIN31 

CONTINUE CONMIN32 

CONSTANTS. CONMIN33 

NDV1 =NDV + 1 CONMIN 34 

NDV2=NDV»2 CO)IMIN35 

IF (IGOTO.EQ.O) GO TO 40 C0HMIN36 


CHECK FOR UNBOUNDED SOLUTION 


STOP IF OBJ IS LESS THAN -1.0E+40 
IF (OBJ.GT.-1 .0E+40) GO TO 30 
WRITE (6,980) 

GO TO 810 
CONTINUE 

GO TO (160, 390, 380, 670, 690), IGOTO 


SAVE INPUT CONTROL PARAMETERS 


CONTINUE 

IF ( IPRINT.GT. 0 ) WRITE (6,1220) 

IF ( LINOBJ . EQ. 0 .OR . (NCON.GT.O.OR.N5IDE.GT.O) ) GO TO 50 
TOTALLY UNCONSTRAINED FUNCTION NITH LINEAR OBJECTIVE. 
SOLUTION IS UNBOUNDED , 

WRITE (6,970) LINOBJ ,HCON ,NSIDE 

RETURN 

CONTINUE 

IDM1 =I7RM 

IDN2=ITMAX 

IDM3=ICNOIR 

DMUDELFUN 

DM2=DABFUH 


C0NMIN38 
-CONMIN 39 
C0NMIN40 
C0NMIN41 
CONMIN42 
C0NMIH43 
CONMIN44 
C0NMIN45 
-C0NMIN46 
CONMIN47 
-C0MMIN48 
CONMIH49 
CONMIN50 
CONMIN51 
CONMIN52 
COHHIN5 3 
C0NMIN54 
CONMIN55 
CON)1IN56 
CON)IIN57 
CONMIN50 
CUMMINS 9 
CONMIN60 
CONMIN6J 
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>0 CONTINUE CONMI 1 22 

70 CONTINUE CONMI 1 23 

: - --- - CONM1 124 

1 CHECK TO BE SURE THAT SIDE CONSTRAINTS APE SATISFIED CONMI125 

2 - - CONM1 1 26 

IF (NSIDE. EQ.O) GO TO 110 CONMI127 

DO 100 1=1, HOV CONMI 1 28 

IF I VLB(I).LE.VUBtl) ) GO TO SO CONMI 129 

XX= . 5* I VLB ( 1 1 + VUB1 1 ) ) CONM1 130 

X( I )=XX CONMI 1 31 

VLB(I)=XX CONMI I 32 

VUBI I ) =XX CONM1 1 33 

WRITE 16,1120) I CONMI 1 34 

30 CONTINUE CONMI 135 

XX=X( I ) -VLB ( I ) CONM1 136 

IF (XX.GE.O.) GO TO 90 C0NMI137 

C LOWER BOUND VIOLATED. CONMI13S 

WRITE (6,1130) Xm.VLBtl),! CONMI139 

XI I )=VLB( I ) CONM1 1 40 

GO TO 100 CONMI 1 4 1 

90 CONTINUE CONMI142 

XX=VUB(I)-X(I> CONMI 1 43 

IF (XX.GE.O.) GO TO 100 CONMI144 

WRITE (6,1140) X( I ) » VUB( I ) , I C0NMI145 

X( I )=VUB( I ) CONM1 146 

100 CONTINUE CONMI 1 47 

110 CONTINUE CONMI 140 

C - - — C0NMI149 

C INITIALIZE SCALING VECTOR, SCAL CONMI150 

C - C0NMI151 

IF (NSCAL. EQ.O) GO TO 150 CDNMI152 

IF (NSCAL.LT. 0) GO TO 130 CONMI153 

DO 120 1=1 ,NDV CONMI 1 54 

120 SCAL( I ) = 1 . CONM1 1 55 

GO TO 150 CONMI 156 

130 CONTINUE CONMI157 

DO 140 1=1 , NDV CONMI 1 50 

5I = ABS( SCALt I ) ) CONM1 159 

IF (SI.LT.1 .0E-20) SI=1.0E-5 CONMI160 

SCAL( I )=SI C0NMI161 

SI=1./SI CONMI 162 

X(I)=X(I)*5I CONM1 1 6 3 

IF (NSIDE.EO.O) GO TO 140 C0NNI164 

VLB(I)=VLB( I )»*SI CONM1 1 65 

VUB(I)=VUB(I)*SI CONMI 1 66 

140 CONTINUE CONMI 167 

(50 CONTINUE CONMI 160 

C COMMIJ69 

C ***** CALCULATE INITIAL FUNCTION AND CONSTRAINT VALUES ***** CONMI170 

C - - — CONMI171 

INFO=1 CONMI 1 72 

NCALf 1 )=1 CONMI 1 73 

IGOTO= 1 CONMI 174 

GO TO 950 CONMI 175 

160 CONTINUE CONMI 176 

0BJ1 =OBJ CONMI 177 

IF ( DABFUN. LE . 0 . ) DABFUN= . 00 1 *ABS( OBJ ) CONMI 176 

IF (DABFUN. LT. 1 .OE-IO ) DADr UN= 1 . 0E- 1 0 C0NMII79 

IF ( IPRINT.LE.O ) GO TO 270 CONHI10O 

C CONM1 131 


C PRINT INITIAL DESIGN INFORMATION C0NMI102 

C - - CONM1 183 

IF (IPRINT.LE.il GO TO 230 CONMI184 

IF (NSIDE. CQ.O. AND. NCON. EQ.O) WRITE (6,1290) CONMI 165 

IF ( N5IDE . ME . 0 . OR . NCON . GT . 0 ) WRITE (6,1230) CONMI186 

WRITE (6,1240 ) IPRINT ,NDV , ITMAX , NCON , NSIDE , ICNDIR .NSCAL ,NFDG , LINOBCONM1 1 87 
1 J , ITRM »N1 ,N2,N3,N4,N5 CONM1188 

WRITE (6,1260) CT , CTMIN ,CTL , CTLMIN , THETA , PHI , OELFUN .DABFUN C0NMI1B9 

WRITE (6,1250 ) FDCH , f DCHM , ALPHAX , ABOBJ 1 COIIMI190 

IF (NSIDE. EQ.O) GO TO 190 C0NI1IJ91 

WRITE (6,1270) CONMI192 

DO 170 1 = 1 , NDV ,6 CONMI 1 93 

M 1 =MIN0 ( NDV ,1*5) COMMIT 94 

170 WRITE (6,1010) I , ( VLB( J ) , J=I ,M1 ) CONMI 195 

WRITE (6,1280) CONMI196 

DO 1 eO 1=1 ,NDV,6 CONMI 1 97 

HI =MIN0( NDV ,1*5) CONMI 198 

180 WRITE (6,1010) I , ( VUB( J ) » J = I ,M1 ) CONMI199 

190 CONTINUE CONMI200 

IF ( NSCAL. GE.O) GO TO 200 CONMI201 

WRITE (6,1300) CONMI202 

WRITE (6,1460 ) ( SCAL(I) , 1 = 1 ,NDV ) CONMI203 

200 CONTINUE CONMI 2 04 

IF (NCON. EQ.O) GO TO 230 C0NMI205 

IF (NLNC. EQ.O. OR. NLNC.EQ. NCON) GO TO 220 CONMI206 

WRITE (6,1020) CONMI207 

DO 210 1=1, NCON, 15 CONMI208 

Ml =MINQ ( NCON , 1+ 1 4 ) CONMI209 

210 WRITE (6,1030) I, (ISC(J),J=I, Ml) CONMI210 

GO TO 230 CONMI 21 1 

220 IF (NLNC.EQ- NCON) WRITE 16,1040) CONMI212 

IF (NLHC.EQ.O) HRITE (6,1050) C0NMI213 

230 CONTINUE CONMI214 

WRITE (6,1440) OBJ CONMI215 

WRITE (6,1450) CONMI216 

DO 240 1=1 , NDV CONMI21 7 

XI =1 . CONMI21 8 

IF (NSCAL. ME. 0) X1=SCAL(I) CONMI219 

240 GUI )=X( I )*X1 CONMI220 

DO 250 1=1, NDV, 6 CONMI221 

Ml =MIN0 ( NDV , 1 + 5 ) COMMIC22 

250 WRITE (6,1010) I , (G1 ( J > , J=I ,M1 ) CONMI223 

IF (NCON. EQ.O) GO TO 270 CONMI224 

WRITE (6,1470) CONMI225 

DO 260 1=1, NCON, 6 CONMI226 

Ml =MIN0( NCON , I 4 5 1 CQNMI227 

260 WRITE (6,1010) I , ( G( J ) , J=I » M 1 ) CONMI228 

270 CONTINUE CONMI229 

IF (IPRINT. GT. 1 ) WRITE (6,1360) CONMI230 

C - — CONMI 231 

C ##«#***#*„ «»»«»«» BEGIN MINIMIZATION ************************CONM1232 

C - - - CONMI233 

280 CONTINUE CONMI234 

ITER=ITERM CONMI235 

IF (ABOBJ1 .LT. .0001 ) ABOBJ1=.0001 CONMI236 

IF (ABOBJ1 .GT. .2) ABOBJ 1 = . 2 CONMI237 

IF ( ALPHAX. GT. 1 . ) ALPHAX=1. C0NMI238 

IF (ALnHAX.LT. .001 ) ALPHAX=,001 COHMI239 

IF ( IPRINT. GT. 2 ) WRITE (6,1310) ITER CONMI240 

IF (IPRINT. GT. 3. AND. NCON. GT . 0 ) WRITE (6,1320) CT,CTL,PHI CONMI241 
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CTA=ABS(CT) C0IIMI£*2 

IF (NCDBJ.EQ.O) GO TO 390 CUNMI243 

C COMMI244 

C MO MOVE ON LAST ITERATION. DELETE CONSTRAINTS THAT ARE NO CONMJ245 

C LONGER ACTIVE. CONMI246 

C -CONMI247 

HNAC = NAC COMM 1 29ft 

DO 290 1=1 ,NNAC C0NNI249 

IF (IC(I).GT.HCON) NAC=NAC-1 CnNMI250 

290 CONTINUE C0MMI251 

IF (NAC.LE.O) DO TO 920 CONMI252 

NNAC=NAC CONNIE53 

DO 330 1=1 »NNAC COMMI259 

300 NIC=IC(I) CONMI 2 55 

CT1 =CT COMMI256 

IF (ISCt NIC). GT.O) CT1=CTL COIJni257 

IF IGINIO.GT.CTI) GO TO 330 CONNK58 

NAC=NAC-1 CONMI259 

IF (I.GT.NAC) GO TO 920 CONNI260 

DO 320 K=I,NAC CONMI261 

II=K+1 CONMI262 

DO 310 J=1 iNDV2 CONMI263 

310 A1 J,K) = A( J,II ) CONMI269 

320 IC( K ) = IC( II ) C0NI1I265 

GO TO 300 C0MMI266 

330 CONTINUE COMM 1267 

GO TO 920 CONMI268 

390 CONTINUE CONMI269 

IF ( MSCAL . LT.NSCAL .OR .NSCAL. EQ . 0 ) GO TO 360 CCNMI270 

IF (NSCAL. LT. 0. AND. KCOUNT . LT . ICNDIR J GO TO 360 C0NMI271 

MSCAL=0 COMMI272 

KCOUNT=0 CONMI273 

C conrir279 

C SCALE VARIABLES CONI1I2 75 

C COMM 1 2 76 

DO 350 1=1 »NDV CONMI277 

SI = SCALm CONMI27S 

XI=SI»X( I ) C0NMI279 

SIB=SI CONMI260 

IF t NSCAL. GT.O) SI=ABS1XI) C0NMZ61 

IF (5I.LT.1 .0E-10) GO TO 350 C0NMIZ82 

SCAM I )=SI COMMI2ft3 

SI=I./SI C0NMI289 

X(I1=XI«SI CONMI205 

IF (NSIDE.EQ.O) GO TO 350 C0NMI266 

VLB1 1 ) =SIB*SI*VLB( I ) COMMI237 

VUBt I )=SIB*SI#VUB< I ) CDNMI2Q6 

,350 CONTINUE C0NMI209 

IF 1 IPRINT.LT. 9. OR. ( NSCAL. LT.O. AND. ITER .GT.U) GO TO 360 CONI1I290 

WRITE (6,1330) CONMI29I 

WRITE (6,1960) ( SCAM I ) ,1 = 1 ,NDV) CONMI292 

360 CONTINUE CONMI293 

HSCAL=MSCAL+ 1 C0MMI299 

N4C=0 CONMI 2°5 

C CONMI296 

.C OBTAIN GRADIENTS OF OBJECTIVE AND ACTIVE CONSTRAINTS CONMI297 

■C CONMI2 90 

INFO=2 CON)1I299 

NCALt 2 )=NCAL( 2 ) + 1 CONr.1300 

IF (NF0G.NE.1) GO TO 370 CONMI301 


IGOTO=2 CONNI302 

GO TO 950 CONMI303 

370 CONTINUE CONMI309 

JGOTO r 0 CONNI305 

350 CONTINUE CONMI306 

CALL CNMU01 ( JGOTO.X ,DF ,G, ISC , IC , A.G1 , VLB»VU8»5CAL,C,NCAL,DX • DX 1 .FCONMI307 
II, XI, I II, Ml ,N2,II3,N4) CON'11308 

IGOTO=3 CONM1309 

IF (JGOTO.GT . 0 ) GO TO 950 CONMI310 

390 CONTINUE C0NMI3I 1 

IIJro=l COIIMI3 1 2 

IF (liAC.CE.N3 I GO TO 810 CCNMI313 

IF (NSCAL. EQ.0. 09. NrDG. EQ. 0 ) GO TO 420 CONMI314 

C - CONMI31 5 

C SCALE GRADIENTS CONNI316 

C C OMNI 31 7 

C SCALE GRADIENT OF OBJECTIVE FUNCTION. CONMI31B 

DO 400 1=1 i NDV COMMI31 9 

400 DF ( I ) = 0F( I )#5CAL( I ) CONMI320 

IF (NF0G.EQ.2.CR.NAC.EQ.0I GO TO 420 CONMI321 

C SCALE GRADIENTS OF ACTIVE CONSTRAINTS. CONMI322 

DO 410 J= I ,NDV CONMI323 

SCJ=SCAL(J) CONNI324 

DO 410 1=1 ,N4C CONMI 325 

410 A( J , I ) = A( J , I )*SCJ CONMI326 

420 CONTINUE CONMI327 

IF ( IPPIMT.LT. 3. OR. MCON.EQ. 01 GO TO 470 C0IIMI328 

c - COMM 1 32 9 

C PRINT CONMI330 

C — CONMI 331 

C PPINT ACTIVE AND VIOLATED CONSTRAINT NUMBERS. CONMI332 

111=0 CONMI 333 

M2=M3 CONMI 334 

IF (N4C.EQ.0) GO TO 450 CONMI335 

DO 440 1=1 jNAC CONMI 3 36 

J=IC(I) COMMI337 

IF (J.GT.NCON) GO TO 440 COMMI338 

GI=G( J ) CONMI 339 

CUCTAM CONMI340 

IF ( ISCl J) .GT.O) C1=CTrn C0NI1I34r 

GI=GI-C1 CONMI 342 

IF (GI.GT.O.) GO TO 430 CONMI343 

C ACTIVE CONSTRAINT. CONMI344 

Ml =111+1 CONMI345 

MS I ( Ml ) = J CONMI 346 

GO TO 440 CONMI347 

430 M2=M2 + 1 COf(MI348 

C VIOLATED CONSTRAINT. CONNI349 

MS1(112) = J CONMI 350 

440 CONTINUE CONNI351 

450 M3 = M2-N3 CONMI352 

WRITE (6,1 060 ) Ml CONMI353 

IF (M1.EQ.O) GO TO 460 CONI1I354 

WRITE (6,1070) CO) IMI 355 

WRITE 16,1460) ( MSI ( I ) , 1= 1 , Ml J COMMI356 

460 WRITE (6.1000) M3 COT1I357 

IF IM3.EQ.0) GO TO 470 CCNMI350 

WRITE (6,1070 I CO* (MI 359 

M3=N3+1 CCNMI360 

N n 1 7 E ( 6 , t^GO ) (MSI 1 1 ) iT--M3,n2 ) CONUSM 



470 CONTINUE CONMI362 

C - CONMI363 

C CALCULATE GRADIENTS OF ACTIVE SIDE CONSTRAINTS CONMI 364 

C CONMI365 

IF (NSIDE.Eq.O) GO TO 530 CONMI366 

MCN1=NCON CONMI 36 7 

M1 = 0 CONMI 368 

00 510 1=1 ,NDV CONMI 369 

C LOWER BOUND. CONMI37Q 

XI=XII) CONMI 371 

XID=VLBm COIIMI372 

XI 2 = ABS( XID > CONMI 373 

IF (X12.LT.1.) XI 2=1 . CONMI 376 

GI=( XID-XI )/X1 2 CONMI 3 75 

IF fGI.LT.-1.0E-6> GO TO 490 CONMI376 

Ml =M t ♦ 1 CONMI 377 

MSI ( Ml ) = -I C0NMI378 

NAC=NAC+1 CONMI379 

IF (NAC.GE.N3) GO TO 810 COHMI380 

MCN1 =MCN1 + 1 CONMI 381 

DO 480 J=1 iNDV C0NMI362 

480 A(J,NAC)=0. C0NMI383 

A( I ,NAC )=-1 . CONMI 384 

IC(NAC)=ttCNl CONMI385 

G( MCN1 )=GI CONMI 386 

I5C( MCN1 ) = 1 CONMI367 

C UPPER BOUND. CONMI3B6 

490 XID=VUB( 1 1 CONMI 38 9 

XI 2=ABS( XID ) CONMI390 

IF (XI2.LT. 1 . 1 XI 2=1 . C0NMI391 

GI=(XI-XID)/X12 CONMI 392 

IF (GI.LT.-1.0E-6) GO TO 510 CONMI393 

Ml =M1 + » CONMI 394 

MSH Ml ) = I CONMI395 

NAC=NAC + 1 CONMI 396 

IF (NAC.GE.N3) GO TO 810 CONMI 397 

MCN1 =MCN1 + 1 CONMI 398 

DO 500 J=1,NDV CONMI399 

500 A(J,NAC)=0. CONMI400 

A( I ,NAC )=1 . CONMI40 1 

IC1 NAC ) =MCN1 CONMI402 

G( MCN1 )=GI CONMI403 

15C( MCM1 )=1 CONMI404 

510 CONTINUE CONMI405 

C — CONMI406 

C PRINT C0NMI407 

C - -CONMI408 

C PRINT ACTIVE SIDE CONSTRAINT NUMBERS. CONMI409 

IF ( IPRINT.LT. 3) GO TO 530 CONMI410 

WRITE (6,1090) Ml C0NMI411 

IF (M1.EQ.0) GO TO 530 CONMI412 

WRITE (6,1100) C0NMI41 3 

HRITE( 6 , 1 480 ) ( MSI ( J ) , J = 1 ,M1 ) C0NMI414 

530 CONTINUE C0NMI415 

C PRINT GRADIENTS OF ACTIVE AND VIOLATED CONSTRAINTS. CONMI416 

IF (IPRINT.LT. 4) GO TO 570 C0HMI4I7 

WRITE (6,1340) C0NMI41 8 

DO 540 1=1, NOV, 6 CONMI4I9 

Ml =MIN0 ( NDV , I + 5 ) C0NMI420 

540 WRITE (6,1010) I , ( DF( J ) , J = I ,M1) C0NMI421 


IF (NAC.EQ.O) GO TO 570 CONNI422 

WRITE (6,1 350 ) C0NMI4C3 

00 560 1 = 1 , NAC CONW424 

M1=IC(I) C0NMI4C5 

M2=M1 -NCON CONMI426 

M3=0 CONN 1427 

IF (M2.GT.0) M3=IABS( MSI ( M2 ) ) CONMI428 

IF (M2.LE.0) WRITE (6,990) Ml COKMI429 

IF (M2.GT.0) WRITE (6,1000) M3 C0NNI430 

DO 550 K=1 ,NDV,6 C0NUI431 

Ml =MIN0( NDV ,K + 5 ) CONMI432 

550 WRITE (6,1010) K , ( A< J ,1 ) , J=K ,M1 ) C0NMI433 

560 WRITE (6,1360) C0NI1I434 

570 CONTINUE C0NMI435 

C - - CONMI436 

C *#****#***#*#*##*# DETERMINE SEARCH DIRECTION «*«w««##«***«***#*#C0Nni437 

C CONMI430 

ALP=I.0E*20 C0NNI439 

IF (NAC.GT.O) GO TO 580 CDNMI440 

C - — -C0NMI441 

C UNCONSTRAINED FUNCTION CONMI442 

C - — - C0NMI443 

C FIND DIRECTION OF STEEPEST DESCENT OR CONJUGATE DIRECTION. C0NMI444 

NVC=0 C0NMI445 

NFEAS=0 C0NMI446 

KCOUNT =KCOUNT ♦ 1 C0NMI447 

C IF KCOUNT. GT.ICNDIR RESTART CONJUGATE DIRECTION ALGORITHM. CONMI446 

IF (KCOUNT. GT.ICNDIR. OR. IOBJ.EQ. 2) KC0UNT=! CONMI449 

IF ( KCOUNT. EQ. 1 ) JDIR = 0 COUMI450 

C IF JDIR = 0 FIND DIRECTION OF STEEPEST DESCENT. C0NMI451 

CALL CNMN02 ( JDIR .SLOPE ,DFTDF1 ,DF ,S ,N1 ) C0NMI452 

GO TO 630 C0NMI453 

560 CONTINUE C0NMI454 

C - C0NMI455 

C CONSTRAINED FUNCTION COHMI456 

C — — - - CONMI457 

C FIND USABLE-FEASIBLE DIRECTION. C0UMI458 

KCOUNT=0 C0NMI459 

JDIR=0 CONMI460 

PHI=1Q.wPHI CONMI46 1 

IF (PHI.GT. 1000. ) PHI=1 000 . C0NMI462 

C CALCULATE DIRECTION, S. CONMI463 

CALL CNMNQ5 ( G ,DF , A, S ,6 ,C , SLOPE , PHI , ISC , IC>MS1 »NVC »N1 ,N2 ,N3 ,N4 ,N5 )COUMI464 
IF (IPRINT.LT. 3) GO TO 600 C0NMI465 

WRITE (6,1370) C0MMI466 

00 590 1=1, MAC, 6 C0UMI467 

Ml =MIN0( NAC > I + 5 ) COHM1460 

590 WRITE (6,1010) I, < A( NDV1 , J ) , J = I , Ml ) C0N11I469 

WRITE (6,1210) 5( NDV1 ) COHMI470 

600 CONTINUE C0NMI471 

C - - CONMI472 

C *««***# ^ mm ******** ONE-DIMENSIONAL SEARCH ««##w#w«*w*#*«*»***#***wCONni473 

C - CONMI474 

IF ( StNDVI ) . LT. 1 . 0E-6 . AND.NVC . EQ.O ) GO TO 710 CONMI475 

C — - - C0NMI476 

C FIND ALPHA TO OBTAIN A FEASIBLE DESIGN C0NMI477 

C - - CONMI 4 70 

IF (NVC.EQ.O) GO TO 630 CONMI479 

ALP= - 1 . CONMI40O 

DO 620 1=1 , NAC CONMI401 
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NCI=IC(I) C0NMI482 

C 1 =Gt NCI ) C0NMI483 

CTC=CTAM C0NMI484 

IF (ISC(NCI).GT.Ol CTC = CTBM COMMITS 

IF (C1.LE.CTC) GO TO 620 C0NMI486 

ALP1 =0 . COMMITS? 

00 610 J=1 ,NDV C0HMI488 

610 ALP1=ALPMSt JJ*A( J,I) C0NMI489 

ALPI=ALP1*A(N0V2,I) CONMI490 

IF (ABS( ALP1J.LT.1 .0E-20) GO TO 620 C0NMI491 

ALPI = -C1 /ALPI CONMI492 

IF l ALPI . GT .ALP 1 ALP=ALP1 C0NNI493 

620 CONTINUE C0NMI494 

630 CONTINUE C0NMI495 

C C0NMI496 

C LIMIT CHANCE TO A80BJ1«0BJ C0HMI497 

C C0NHI498 

ALP1=1.0E*20 C0NMI499 

SI=ABSl OBJ ) CONMI500 

IF (SI.LT. .01 ) SI=.01 C0NHI501 

IF ( ABS(SLOPE J.GT.1 .0E-20I ALPI =ABOBJ 1 # SI /SLOPE CONMI502 

ALP1=ABS( ALPI ) CONMI503 

IF (NVC.GT.Q) ALPI =10. *ALP1 CONMI504 

IF (ALPI .LT. ALP) ALP=ALP1 CONI1I505 

C CONMI506 

C LIMIT CHANGE IN VARIABLE TO ALPHAX CONNI507 

C - - CONMI508 

ALPI 1=1 .0E+20 CONMI509 

DO 640 1=1 ,NDV C0NMI51 0 

SI=AB5(S(in C0NNI51 1 

XI=ABS(Xlin C0NMI51 2 

IF (SI.LT. 1 . OE-IO.OR.XI.LT. 0.1 ) GO TO 640 C0NMI513 

ALPI =ALPHAX»XI/5I C0NNI514 

IF (ALPI .LT. ALPI 1 ) ALPI 1 =ALP1 C0NNI51S 

640 CONTINUE C0NNI516 

IF (NVC.GT.O) ALPI 1 = 10. **ALP1 1 C0NNI517 

IF ( ALPI 1 . LT . ALP ) ALP=ALP1 1 C0NMI518 

IF ( ALP.GT. 1 .OE+20 ) ALP=1.0E+20 C0NMI519 

IF IALP.LE. 1 .0E-20 ) ALP=1.0E-20 CONMI520 

IF (IPRINT.LT. 3) GO TO 660 CONMI521 

WRITE (6,1380) CONI1I522 

00 650 1=1 ,NDV ,6 C0NMI523 

Ml =MINO( NDV , 1+5 ) C0fJI1I524 

650 WRITE (6,1010) I , ( S( J ) , J = I ,M1 ) C0NMI525 

WRITE (6,1110) SLOPE, ALP CONMI526 

660 CONTINUE C0NHI527 

IF ( NCON.GT. 0 .OR.NSIDE .GT . 0 ) GO TO 600 CONMI528 

C - --- - CONMI529 

C DO ONE-DIMENSIONAL SEARCH FOR UNCONSTRAINED FUNCTION C0NMI530 

C - C 0)1111531 

JGQT0=0 CONMI532 

670 CONTINUE CONMI533 

CALL CNMN03 ( X , S , SLOPE , ALP , FFF , A1 , A2 , A3 , A4 , F 1 ,F2 ,F3 , F4 , APP ,N1 .NCALCONMI534 
1 .KOUNT.JGOTO) CONHI535 

IGOTO=4 CONMI536 

IF (JGOTO.GT.O) GO TO 950 CONMI537 

JDIR= 1 CO) in I S 30 

C PROCEED TO CONVERGENCE CHECK. COHHI539 

GO TO 700 CO) INI540 

C - CONN 1 5^1 


SOLVE ONE-DIMENSIONAL SEARCH FROBLEM FOR CONSTRAINED FUNCTION CONMI542 

- - - CONMI543 

CONTINUE CONMI544 

JGOTO=0 C0NMI545 

CONTINUE CONM1546 

CALL CNMN06 ( X, VLB , VUB ,G , SCAL ,DF , S ,G1 ,G2 ,CTAM ,CTBM , SLOPE , ALP , A2 ,A3C0NMI 547 
1 ,A4,F1 ,F2,F3,CV1 ,CV2 ,CV3,CV4 , ALPCA, ALPFES, ALPLN, ALPMIN, ALPNC, ALPSACONMI548 
2V,ALPSID,ALPTOT,ISC,N1 ,U2 ,NCAL ,NVC , I COUNT , IGOOD1 »IGOOD2 , IG00D3, IG0C0NMI549 
30D4 , IBEST . Ill ,NLNC , JGOTO) CCNMI550 

IGQTO=5 CONMI 551 

IF (JGOTO.GT.O) GO TO 950 CONMI552 

IF (NAC.EQ.O) JDIR= 1 CONMI553 


UPDATE ALPHAX ##****#**#* ******* 


CONTINUE 

CONTINUE 

IF (ALP.GT. 1 . 0E+19) ALP=0. 

UPDATE ALPHAX TO BE AVERAGE OF MAXIMUM CHANGE IN X( I ) 
AND ALHPAX . 

ALPI 1=0. 

DO 720 1=1 , NDV 
SI =ABS( S( I ) ) 

XI=ABS( X( I ) ) 

IF (XI. LT.1 .OE-IO ) GO TO 720 
ALP1=ALP*SI/XI 

IF (ALPI .GT.ALP1 1 ) ALPI 1 =ALP1 
CONTINUE 

ALPI 1=.5*l ALPI 1 f ALPHAX ) 

ALPI 2=5 . *ALFHAX 

IF ( ALPI 1 . GT . ALPI 2 ) ALPM=ALP12 

ALPHAX=ALP1 1 

NC08J=NC0BJ+1 

ABSOLUTE CHANGE IN OBJECTIVE. 

OBJD=OBJ1 -OBJ 
OBJB=ABS( CBJD ) 

IF (OBJB.LT. 1 . 0E- 1 0 ) OBJB=0. 

IF ( MAC . EQ . 0 . OR . OBJB . GT . 0 . ) NCOBJ=0 
IF 1 NCOBJ . GT . 1 ) NCOBJ=0 


PRINT MOVE PARAMETER, NEW X-VECTOR AND CONSTRAINTS. 

IF ( IPRINT.LT. 3) GO TO 730 

WRITE (6,1390) ALP 

IF ( IPRINT.LT. 2 ) GO TO 800 

IF (OBJB.GT.O. ) GO TO 740 

IF ( IFRINT.EQ.2 ) WRITE (6,1400) ITER, OBJ 

IF (IPRINT.GT.2) WRITE 16,1410) OBJ 

GO TO 760 

IF ( IPRINT.EQ.2 ) GO TO 750 
WRITE (6,1420) OBJ 
GO TO 760 

WRITE (6,1430) ITER, OBJ 
WRITE (6,1450) 

DO 770 1=1 ,N0V 
FF 1 = 1 . 

IF 1NSCAL.NE.0) FF 1 =SCAL( X ) 

G 1 ( I )=rFt*X( I ) 

DO 760 1=1, NDV, 6 


#**#*CONMI555 

CONNI556 

CONNI557 
CONMI558 
CONMI559 
CDNMI560 
C0NMI56 1 
CONMI562 
CONMI563 
CONNI564 
CONMI565 
C0NMI566 
CONMI567 
CONNI568 
CONMI569 
CONMI570 
C0NMI571 
CONNI572 
C0NMI573 
C0NMI574 
CONMI575 
CONMI576 
CONMI577 
CONNI578 
CDNMI579 
COMMI530 

CONMI58 1 

CONMI582 

C0NMI533 

CONMI584 
C0NMI505 
C0NMI586 
C0NMI587 
C0NNI588 
CONMI589 
CQNriI590 
C0NMI591 
CONMI592 
CONMI593 
C0NMI594 
CONMI595 
C0NMI596 
CONMI597 
CONMI590 
C0NMI599 
CQNMI600 
CONTI 1 6 01 
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700 


790 

800 

C 

c 

c 


004 


006 

800 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


810 

c 

c 


Ml =MIN0( NDV, 1+5 ) 

WRITE (6,1010) I, (GW ) 
IF (NdOM.EQ.O) GO TO 000 
WRITE (6,1470) 

DO 790 1=1, NCON, 6 
Ml =MIN0 1 NCON ► I + 5 ) 

WRITE (6,1010) I , ( G( J ) , J=I ,M1 ) 
CONTINUE 


CHECK FEASABI LITY 


IF ( NCON . LE . 0 ) GO TO 808 
00 004 1=1 ,NC0N 
C1=CTAM 

IFtlSC(I).GT.O) Cl =CTBM 
IF(G( I 1.LE.C1 ) GO TO 804 
NFEAS=NFE AS+ 1 
GO TO 806 
CONTINUE 

IF( NFEAS .GT.O) ABOBJ1=.05 

NFEAS=0 

PHI=5. 

IF ( NFEAS . GE . 1 0 ) GO TO 810 
CONTINUE 


CHECK CONVERGENCE 


STOP IF ITER EQUALS UMAX . 

IF 1 ITER. GE. UMAX) GO TO 810 


ABSOLUTE CHANGE IN OBJECTIVE 


OBJB=AB5( OBJD ) 

K0BJ=K0BJ+1 

IF (CBJB.GE.OABFUN. OR. NFEAS. GT.O) KOBJ=0 


RELATIVE CHANGE IN OBJECTIVE 


IF ( AB5( OBJ1 J.GT.1 . 0 E - 1 0 1 OBJD=OBJD/ABS( OBJ I) 
ABOBJ1 = .5#( ABSI ABOBJ ) + ABS( OBJD ) ) 

ABOBJ=ABS( OBJO ) 

I0BJ=I0BJM 

IF( NFEAS. GT.O .OR. OBJO. GE.DELFUN1 IOBJ=0 
IF ( IOBJ.GE.ITPM.OR.KOBJ.GE.ITRM) GO TO 810 
OBJ 1 =00 J 


REDUCE CT IF OBJECTIVE FUNCTION IS CHANGING SLOWLY 


IF (IOBJ.LT.1 .OR.NAC.EQ.O) GO TO 200 

CT=DCT*CT 

CTL=CTL*DCTL 

IF ( ABS( CT ) . LT.CTMIN ) CT = -CTMIN 
IF (ABS(CTL). LT.CTLMIN) CTL=-CTLMIN 
GO TO 280 
CONTINUE 

IF (NAC.GE.N3) WRITE (6,1490) 


C0NMI602 
CONMI603 
CONMI604 
COt 1111605 
CONMI606 
CONHI607 
COHMI6O0 
C0NI1I609 
-CONMI6 1 0 
CONMI611 
-CONMI612 
CONMI61 5 
C0NMI6 1 4 
C0NMI6 1 5 
CONMI6 1 6 
C0NMI6 1 7 
CONMI610 
CONNI6 1 9 
CONNI620 
CONMI62 1 
CONNI622 
CONMI623 
CONNI624 
CONMI625 
-CONMI626 
CONMI627 
-CONNI620 
CONMI629 
CONMI630 
-CONNI631 
CONMI632 
-CONMI633 
CONMI634 
CONMI635 
C0NMI636 
-COMMI637 
CONMI 6 30 
-C0NMI639 
CONMI640 
C0NMI64I 
CONMI642 
C0NMI643 
CONMI644 
C0NMI645 
C0NMI646 
-CONMI647 
CONMI640 
-C0NMI649 
CONMI6 50 
CONMI651 
CONMI652 
CONNI653 
CONMI654 
C0NMI655 
C0NMI656 
CONMI657 
-C0MMI658 


#»#****!****# FINAL FUNCTION INFORMATION a######***********# HCONMI659 


IF (NSCAL.EQ.O) GO TO 030 


CONMI660 
CONMI66 t 


C 


820 

C 

C 

C 

830 


840 


050 

C 


860 

870 


800 


890 

900 

C 


UN-SCALE THE DESIGN VARIABLES. 
DO 820 1=1 , NDV 
XI=SCAL( I ) 

IF (NSIDE.EQ.O) GO TO 820 
VLB(I)=XI*VLB( I) 

VUB( I )=XI*VUB( I J 

xm=xi*x(u 


PRINT FINAL RESULTS 


IF ( IPRINT. EQ . 0 . OR . NAC.GE .N3 ) GO TO 940 
WRITE (6,1500) 

WRITE (6,1420) OBJ 
WRITE (6,1450) 

DO 840 1=1 ,NDV , 6 
Ml =MIN0( NDV i I +5 ) 

WRITE (6,1010) I»(X( J ),J = I,M1 ) 

IF ( NCON. EQ. 0 ) GO TO 900 
WRITE (6,1470) 

DO 850 1=1 , NCON, 6 
Ml =MIN0( NCON, I + 5 ) 

WRITE (6,1010) I » (G( J ) » J=I ,M1 ) 

DETERMINE WHICH CONSTRAINTS ARE ACTIVE AND PRINT. 

NAC = 0 
NVCaO 

DO 870 1=1 »NCON 
CTA=CTAM 

IF (ISC(I).GT.O) CTA=CTBH 
GI=G( I ) 

IF (GI.GT.CTA) GO TO 860 

IF (GI.LT.CT.AND.ISC(I).EQ.O) GO TO 870 

IF (GI.LT.CTL. AND. ISC(I). GT.O) GO TO 870 

NAC=NACM 

IC( NAC ) = I 

GO TO 870 

NVC=NVC+1 

MSI ( NVC ) = 1 

CONTINUE 

WRITE (6,1060) NAC 
IF (NAC.EQ.O) GO TO 880 
WRITE (6,1070) 

WRITE ( 6 , 1400 ) ( ICC J),J=T,NAC) 

WRITE (6,1000) NVC 
IF (NVC.EQ.01 GO TO 890 
WRITE (6,1070) 

WRITE (6,1400) (MSI ( J ) , J=1 ,NVC ) 

com 1NUE 

CONTINUE 

IF (NSIDE.EQ.O) GO TO 930 

DETERMINE WHICH SIDE CONSTRAINTS ARE ACTIVE AND PRINT. 
NAC = 0 

DO 920 1=1 , NDV 
XI=X( I ) 

XID=VLB( I) 

XI 2 = ABS( XID ) 

IF 1X12. LT. 1 . ) XI 2 = 1 . 

GI = ( XID-XI 1/X12 
IF (GI.LT.-1.0E-6) GO TO 9(0 
NAC=NAC+1 
MSI (NAC )=-I 


CONMI662 
C0NMI663 
COHNI664 
C0NMI665 
CONMI666 
CONMI667 
CONMI66 0 
-C01IM1669 
COMMI670 
-CONMI671 
CONMI672 
CONMI673 
C0NMI674 
C0NMI675 
CONMI676 
CONt1I677 
CONMI678 
CONMI679 
CONMI6BO 
CONMI681 
CONMI682 
CONMI683 
CONMI684 
CONMI685 
C0NMI686 
CONMI607 
CONMI608 
CONMI689 
CONMI690 
CONNI69 J 
CONMI692 
CONHI693 
CONMI694 
CONMI695 
CONMI696 
CONMI697 
CONMI698 
CONMI699 
CONMI700 
COHMI701 
CONMI 702 
CONMI703 
CONMI 704 
CONMI705 
CONMI 706 
CONI11 707 
CONHI70B 
CONMI 709 
CONMI 71 0 
CONMI71 1 
CONMI712 
CONMI713 
CONMI 7 1 4 
C0NMI71 5 
CONMI716 
CONMI 71 7 
C0NMI71 8 
CONMI 71 9 
C0NI1I720 
CONMI72 l 
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910 XIO=VUBlI) CONNI722 

XI 2 = ABS( XID ) COHMI 723 

IF (X12.LT. 1 . ) XI 2 = 1 . CONMI729 

GI = ( XI-XID )/X1 2 CONMI725 

IF (GI.IT.-1.0E-6) GO TO 920 CONMI726 

NAC=NAC+! COHI II 72 7 

HS1 ( MAC ) = I CQNMI728 

920 CONTINUE C0NMI729 

WRITE 16*1090) NAC COMMI730 

IF (NAC.EQ.O) GO TO 930 C0NHI731 

HRITE (6,1100) CONMI732 

WRITE (6,1960) (MSU J) ,J=1 ,NAC) CONMI733 

930 CONTINUE CONMI739 

WRITE 16,1150) CONMI735 

IF ( ITER . GE . ITNAX ) WRITE (6,1160) CONMI736 

IF ( NFEAS . GE . 1 0 ) WRITE (6,1170) CONMI737 

IF (IOBJ.GE.ITRM) WRITE (6,1180) ITRM C0NMI736 

IF (KOBJ.GE.ITRM) WRITE (6,1190) ITRM COHMI739 

WRITE (6,1200) ITER CONMI790 

WRITE (6,1510) NCALM ) COHMI 791 

IF (NCOH.GT.O) WRITE (6,1520) NCAL( 1 ) CONMI792 

IF (HFDG.NE.Q) WRITE (6,1530) NCAH 2 ) CONMI793 

IF (NCON.GT.O.AND.NFDG.EQ.1) WRITE (6,1590) NCALI 2 ) CONMI799 

C - C0NMI795 

C RE-SET BASIC PARAMETERS TO INPUT VALUES COMMI796 

C - - --- CONMI797 

990 ITRM=IDM1 C0NMI796 

ITMAX=IDM2 CONMI799 

ICNDIR=IDM3 CONMI750 

DELFUH=DM1 CONMI751 

DABFUN=DM2 CONMI752 

CT=DM3 COHMI753 

CTMIN=DM9 CONMI 759 

CTL=DM5 CONMI755 

CTLMIN=0M6 CONMI756 

THETA=DM7 CONMI757 

PHI=DMB COHMI 756 

FDCH=DM9 C0MMI759 

FDCHM=DM1 0 CONMI760 

ABOBJ 1 =DM1 1 CONMI 761 

ALPHAX=DM1 2 COMMI762 

IGOTO=0 CONMI 763 

950 CONTINUE CONMI769 

IF ( NSCAL . EQ . 0 .OR . I GOTO. EQ. 0 ) RETURN COHMI765 

C UH-SCALE VARIABLES. C0HMI766 

DO 960 1=1 , NOV CONMI 76 7 

C(I)=X(I) CONMI760 

960 X< I )=X( I)#SCAL(I) CONMI 769 

RETURN CONMI 770 

C CONMI 771 

C FORMATS CONMI 772 

C CONMI 773 

C CONMI 779 

C CONMI775 

970 FORMAT (///5X,72HA COMPLETELY UNCONSTRAINED FUNCTION WITH A LINEARC0NNI776 

I OBJECTIVE IS SPECIFIED//1 OX,6HLINOBJ = , 15/1 OX , 8HNCON = , 15/1 OX .8CONMI777 

2HNSIDE = * I5//5X , 35HCOHTROL RETURNED TO CALLING PROGRAM) COHMI775 

980 FORMAT 1 ///DX,56HCONMIN HAS ACHIEVED A SOLUTION OF OBJ LESS THAN -CONMI779 

II .0E + 90/5X.32HSOLUTION APPEARS TOABE UNBOUNDED/5X, 26HOPTIMIZATION CONMI7O0 

2IS TERMINATED) C0HMI781 


FORMAT (5X.17HC0N5TRAINT NUMBER, 15) COMMI762 

FOPMAT ( 5X , 27HSIUE CONSTRAINT ON VARIABLE, 15) CONMI7C3 

FORMAT (3X,I5,lH),2X,6E13.5) CCNI1I709 

FOPMAT ( /5X , 35IILIMEAR CONSTRAINT IDENTIFIERS ( ISC )/5X, 36HNON-ZERO CONMI765 

1 1NDICATES LINEAR CONSTRAINT) CONMI736 

FOPMAT ( 3X, 15,1 HI, 2X, 1515) CGNMI7G7 

FORMAT ( /5X , 26HALL CONSTRAINTS ARE LINEAR) C0NMI708 

FORMAT ( /5X , 30HALL CONSTRAINTS APE NON-LINEAR) CONMI789 

FOPMAT I /5X , 9HTHERE APE,I5,19H ACTIVE CONSTRAINTS) COMMI790 

FORMAT ( 5X, 22HCONST RAINT NUMBERS APE) C0IIMI791 

FORMAT ( /5X , 9HTHERE ARE.I5.21H VIOLATED CONSTRAINTS) C0NMI792 

FOPMAT ( /5X , 9HTHERE ARE.I5.29H ACTIVE SIDE CONSTRAINTS) CONMI793 

FORMAT (5X,93HDECISI0N VARIABLES AT LONER OR UPPER BOUNDS, 30H (HIHC0NMI799 

1 US INDICATES LOWER BOUND)) CONMI795 

FORMAT ( /5X , 22HONE- DIMENSIONAL SEARCH/5X , 1 5HINITIAL SLOPE = , E 1 2 .9 .COMMI796 
1 2X, 16HPP0P0SED ALPHA =,E12.9) COIIMI797 

FORMAT 1///5X,35H*» # CONMIN DETECTS VLBI I ) . GT . VUB( I )/5X,57HFIX IS C0NMI798 
1SET X( I )=VLB( I )=VUB( I ) = . 5*1 VLBi I ) + VUB( I ) FOR I =,I5) CONMI799 

FOPMAT ( ///5X,9IH» • CONMIN DETECTS INITIAL X( I ) , LT . VLB( I )/5X , 6HX1 CONMI 000 
II) = , E 1 2 . 9 , 2X,6HVLB( I ) = , E 1 2 .9/5X, 35HXU ) IS SET EQUAL TO VLDf I ) FCONMI30! 
20R I = * 15 ) CONMI802 

FORMAT ( ///5X,9 1 H* • CONMIN DETECTS INITIAL X( Z ) .GT.VUBt I )/5X,6HX( CONMI803 
II) = , El 2 . 9 , 2X ,BHVUBI I ) = , E 1 2 . 9/5X , 35HXI I ) IS SET EQUAL TO VUB( I ) FCONMI809 
20R I = , 15 ) CONIII805 

FORMAT (/5X,21HTERMINATI0N CRITERION) CONNI806 

FORMAT (1 OX, WHITER EQUALS ITMAX ) CONMIG07 

FORMAT ( 1 0X»62HTEN CONSECUTIVE ITERATIONS FAILED TO PRODUCE A FEASCONMIOOB 
1IBLE DESIGN) CONMI809 

FORMAT ( 10X.93HAB51 1-0BJ1 I-l)/OBJ(I ) ) LESS THAN DELFUN FOR . 13 , 1 1 H C0NMI810 
1 1TERATIONS) C0NMI81 1 

FORMAT ( 1 0X,93HABS( OBJ( I ) —OBJ ( 1-1 ) ) LESS THAN DABFUN FOR , 13 , 1 1 H CONMI812 
1 1TERATIONS) CONMIQ13 

FORMAT I/5X.22HNUMBER OF ITERATIONS =,I5) C0NMI819 

FOPMAT ( /5X , 26HCONSTRAINT PARAMETER, BETA =,E19.5) CONMI815 

FOPMAT ( 1H1 ,////12X,27(2H» )/1 2X, 1H« ,51 X, 1HV1 2X, IH*, 20X, 1 1HC 0 N C0NMI816 
1M I N,20X,1H*/12X,1H»,51X,1H«/12X,1H*,15X,21H FORTRAN PROGRAM FOR CONMI0I7 
2 ,15X, 1H*/12X, 1H«,51X,1H«/12X,1H**,9X,33HC0N5TRAINE0 FUNCTION MINIMIC0NMI8I 8 
3ZATION,9X, 1HV12X, 1H*,51X, IH«/1 2X.271 2H» )) C0NMI819 

FORMAT ( ////5X, 33HCONSTRAINED FUNCTION MINIMIZATI0N//5X , 1 8HCONTROLCOMNI820 
1 PARAMETERS) CONMIB2I 

FORMAT ( /5X , 60HIPRINT NOV ITMAX NCON N5IDE ICNOIR HSCCOMMI822 
1 AL NFDG/8I8//5X , I2HLIN0BJ ITRM,5X,2HN1 ,6X , 2HN2 ,6X , 2HN3 , 6X , 2HN9 ,CONMI823 
26X , 2HN5/8I0 ) C0NMI029 

FOPMAT (/9X,9HF0CH,12X,5HFDCHM, 1 1X,6HALPHAX,1 OX, 6HABOBJ1 / 1 X ,9( 2X,ECONMI825 
119.5)) CONMI826 

FORMAT (/9X.2HCT, 19X, 5HCTMIN, 1 1 X , 3HCTL , 1 3X , 6HCTLMIN/I X ,9( 2X , E 1 9 . 5 JC0NMI027 
1//9X ,5HTHETA, 1 1 X , 3HPHI , 1 3X , 6HDE LFUN , 1 OX , 6HDABFUN/1 X , 9( 2X.EJ9.5 ) ) CONMI 028 
FOPMAT ( /5X* 90H LONER BOUNDS ON DECISION VARIABLES (VLB)) CONMI829 

FORMAT ( /5X , 90HUPPER BOUNDS ON DECISION VAPIABLES ( VUB ) ) CONMI830 

FORMAT ( ////5X, 35HUNCON3TRAINED FUNCTION MINIMIZATIQN//5X , 18HC0NTR CONMI 83 1 
10L PARAMETERS) CONMI032 

FORMAT ( /5X ,21 HSCALING VECTOR l SCAD) CONMI833 

FORHAT ( ////5X, 22HDEGIN ITERATION NUMBER, 15) C0NMI839 

FORMAT (/5X.9HCT = , E 1 9 . 5 , 5X , 5HCTL = , E 1 9 . 5 , 5X , 5HPHI =,E19.5) C0NMI835 

FORMAT ( /5X, 25HNEW SCALING VECTOR (SCAD) CONMIQ36 

FOPMAT ( /5X. 15HGRA0 IENT OF OBJ) CONMI837 

FORMAT (/5X,9AHGRA0IENT5 OF ACTIVE AND VIOLATED CONSTRAINTS) COMMI838 

FOPMAT ( 1H ) CONMI039 

FORMAT ( /5X , 37HPUSH -OFF FACTORS, ( THETAI I ) , 1=1, MAC)) CONMI890 

FORMAT ( /5X , 27HSEARCH DIRECTION (S-VECTOR)) C0IIMI691 
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1390 FORMAT ( /5X, 1 8HCALCULATED ALPHA =,E14.5) CONMI842 

1400 FORMAT ( ////5X , 6HITER = , 15 , 5X ,5H0BJ = , E 1 4 . 5 , 5X , 1 6HN0 CHANGE IN OBJCONMI043 
| ) COMM 1 044 

1410 FORMAT (/5X.5HOBJ = , E 1 5 . 6 , 5X , 1 6HN0 CHANGE ON OBJ 1 COMMI045 

1420 FORMAT (/5X.5H0BJ =,E15.6) C0NMI046 

1430 FORMAT ( ////5X ,6HITER = , 15 , 5X , 5HOBJ =,E14.5) CONMI047 

1440 FORMAT ( //5X, 26HINIT I AL FUNCTION INFORMATIONAL , 5HOBJ =,E15.6) C0NMI64B 

1450 FORMAT ( /5X , 29HOECISION VARIABLES ( X-VECTOR )) CONMI849 

1460 FORMAT (3X.7E13.4) CONMI05O 

1470 FORMAT 1 /5X , 20HCONSTRAINT VALUES 1 G-VECTOR ) ) CONMI051 

1400 FORMAT (5X.15I5) C0NHI052 

1490 FORMAT (/5X.59HTHE NUMBER OF ACTIVE AND VIOLATED CONSTRAINTS EXCEECONMI053 

IDS N3-1 ./5X (66HDIMENSIONED SIZE OF MATRICES A AND B AND VECTOR IC COMMI654 
2IS INSUFFICIENT/5X,61HOPTIMIZATION TERMINATED AND CONTROL RETURNEDCONMI855 
3 TO MAIN PROGRAM. ) CONMI056 

1500 FORMAT ( 1 H 1 ,////4X , 30HFINAL OPTIMIZATION INFORMATION ) CONMI057 


1510 FORMAT ( /5X , 32HOBJECTIVE FUNCTION WAS EVALUATED ,8X , 15 , 2X , 5HTIMES ) CONMI858 
1520 FORMAT ( /5X , 35HCONSTRAINT FUNCTIONS WERE EVALUATED , I 1 0 , 2X , 5HTIMES JCONMI859 
1530 FORMAT ( /5X , 36HGRADIENT OF OBJECTIVE WAS CALCULATED , 19, 2X.5HTIMES 1CONMX660 
1540 FORMAT ( /5X.40HGRADIENT5 OF CONSTRAINTS WERE CALCULATED , 15 , 2X , 5HTICONMI06 1 


1MES) CONNI862 

END CONMI063 

SUBROUTINE CNMH01 ( JGOTO ,X ,DF ,G , ISC , IC , A ,G1 ,VLB ,VUB ,SCAL,C ,NCAL,DXC0NMI864 
1 ,0X1 ,FI ,XI ,111 ,N1 |N2 ,N3»N4 ) CONMI865 

COMMON /CNMNl/ DELFUN , DABFUN , FDCH , FDCHM ,CT ,CTMIN ,CTL , CTLMIN , ALPHAXCONMI066 
1 , ABOBJ1 , THETA , OBJ ,NDV ,NCON ,NSI0E , IPRINT ,NFDG ,N5CAL, LINOBJ , ITMAX, ITC0NMI867 
2RM, ICNDIR , IGOTO,NAC , INFO. INFOG, ITER CONt1I860 

DIMENSION X1N1), DF (HI ) , G(N2), ISC(N2), ICIN3), A(N1.N3)> G1 ( N2 ) .CONMI669 
1 VLB(NI), VUB1N1), SCAL(NI), NCAL121, CIN4) CONMI870 

C ROUTINE TO CALCULATE GRADIENT INFORMATION BY FINITE DIFFERENCE. CONMI871 

C BY G. N. VANDERPLAATS JUNE, 1972. CONMI872 

C HA3A-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. CONMI873 

IF (JGOTO.EQ.1) GO TO 10 CONMI874 

IF ( JGOTO. EG , 2 ) GO TO 70 CONMI075 

INFOG=0 CONMI876 

INF=INFO CONMI077 

NAC = 0 C0NIII878 

IF (LINOBJ. HE. 0. AND. ITER. GT.l) GO TO 10 CONMI679 

C - --CONNI80O 

C GRADIENT OF LINEAR OBJECTIVE CONMI881 

C - - COMMI882 

IF (NFDG.EQ.2) JGOTO=1 C0NMI883 

IF (NFDG.EQ.2) RETURN CONMI884 

10 CONTINUE CONMI885 

JGOTO=0 CONMI086 

IF (NFDG.EQ.2. AMO. MCON.EQ.O ) RETURN CONMI887 

IF (NCON.EQ.O) GO TO 40 CONMI808 

C - - -CONMI889 

'C » * • DETERMINE WHICH CONSTRAINTS ARE ACTIVE OR VIOLATED # # # CONMI09O 

C - C0NMI891 

DO 20 1=1 pNCON CONMI892 

IF (G(I).LT.CTl GO TO 20 CONMI093 

IF ( ISC( I ) . GT. 0 . AND . G( I ) . LT.CTL ) GO TO 20 C0NMIB94 

NAC=NAC + 1 C0NMI895 

IF (NAC.GE.N3) RETURN C0NMI096 

IC(NAC) = I C0NMI897 

■20 CONTINUE C0NMI898 

IF (NFDG.EQ.2. AND. NAC.EQ.O ) RETURN CONMI099 

IF (( LINOBJ. GT.O. AND. ITER. GT.1 ). AND. NAC.EQ.O) RETURN CONMI900 

C - - CONMI901 


C 

C 

30 

40 


C 

C 

C 


50 


60 


C 

c 

c 


70 


C 

c 

c 


80 

90 


C 

C 

C 

100 


STOPE VALUES OF CONSTRAINTS IN G1 


DO 30 1=1 pNCON 
G1 ( I ) -G ( I ) 

CONTINUE 
JGOTO= 0 

IF (NAC.EQ.O. AND. NFDG.EQ.2) RETURN 


CALCULATE GRADIENTS 


INFOG= 1 
INFO= 1 
F I=OBJ 
111 = 0 
111 = 111*1 
XI=X(III> 

DX=FDCH«XI 
DX=A35( DX ) 

FDCH1 =FDCHM 

IF (NSCAL.NE.O ) FDCH1 =FDCHM/SCAL( III ) 
IF (DX. LT.FDCH1 ) DX=FDCH1 
XI =XI +DX 

IF (NSIDE.EQ.O) GO TO 60 
IF (XI .GT.VUB(III)) DX=-DX 
DX1=1 ./DX 
X( III )=XI*DX 
NCAL( 1 ) = NCAL( 1 )*1 


FUNCTION EVALUATION 


JGOTO=2 

RETURN 

CONTINUE 

X(III)=XI 

IF (NFDG.EQ.O) DF( III )=DX1 *( OBJ-FI ) 
IF (NAC.EQ.O) GO TO 90 


DETERMINE GRADIENT COMPONENTS OF ACTIVE CONSTRAINTS 


DO 80 J= 1 ,NAC 
I1=IC( J) 

A( III » J )=DX1 #( G( II >-G1 ( It )) 
CONTINUE 

IF (III.LT.NDV) GO TO 50 

INFOG=0 

INFO=INF 

JGOTO=0 

OBJ=FI 

IF (NCON.EQ.O) RETURN 


STORE CUPRENT CONSTRAINT VALUES BACK IN G-VECTOR 


DO 100 1=1 »NCON 
G( I )=G1 ( I ) 

RETURN 

END 

SUBROUTINE CNMN02 ( NCALC .SLOPE , DFTDF 1 ,DF , S ,N1) 


CONNI902 
■CON‘1I903 
CQNNT Q 04 
CONMI905 
C01INI906 
CONN! 90 7 
CON:1I903 
■CONMI909 
CONMI91 0 
■C0NI1I91 1 
CONMI912 
CONMI91 3 
CONMI914 
CONHI915 
CONMI91 6 
CONMI917 
CONMI910 
C0NMI91 9 
C0NMI920 
CONMI921 
CONMI922 
CONMI923 
CONMI924 
CONMI925 
CONMI926 
CONMI927 
CONMI928 
-C0NMI929 
CONMI930 
-C0NNI931 
CONNI932 
CONMI933 
CONMI934 
CONMI935 
COMM I 9 36 
CONMI937 
-C0NMI938 
CONMI939 
-CONNI940 
C0NMI941 
C0NMI942 
CONMI943 
CONMI944 
CONMI945 
CONMI946 
CONMI947 
CONMI94B 
C0NMI949 
CONMI950 
-C0NMI951 
C0NMI952 
-CONMI953 
CONJ1I954 
CONMI955 
C0NMI956 
CONMI957 
CONMI950 


COMMON /CNMNl/ DE LFUN , DABFUN , FDCH , FDCHM ,CT .CTMIN ,CTL , CTLMIN , ALPHAXCONUI959 


1 pABOBJI , THETA, OBJ, NDV ,NCON ,NSIDE , IPR INT ,NFDG , NSCAL , LINOBJ, ITMAX, ITCONMI960 


2RM, ICNDIR, IGOTOpNAC, INFO, INFOG, ITER 


CONMI96 1 
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DIMENSION DFtNI ), SC Ml ) C0NMI962 

C ROUTINE TO DETERMINE CONJUGATE DIRECTION VECTOR OR DIRECTION CONMI963 

C OF STEEPEST DESCENT FOR UNCONSTRAINED FUNCTION MINIMIZATION. CONMI964 

C BY G. H. VAHQERPLAATS APRIL , (972. COMMI965 

C NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. CONMI966 

C NCALC □ CALCULATION CONTROL. C0NMI967 

C NCALC =0, S = STEEPEST DESCENT. COMMI960 

C NCALC =1, S = CONJUGATE DIRECTION. CONMI969 

C CONJUGATE DIRECTION IS FOUND BY FLETCHER-REEVES ALGORITHM. CONNI970 

C C0NMI971 

C CALCULATE NORM OF GRADIENT VECTOR CONMI972 

C — CONMI973 

DFTDF = 0 . COIIMI974 

DO 10 1=1 , NDV C0NMI975 

DFI=DF( I ) CONMI976 

10 DFTDF=OFTDF+DFI*DFI CONMI977 

C - - -CONMI978 

C *»»*»»**** FIND DIRECTION S *»»***» mmcOHni 979 

C - - CONMI960 

IF (NCALC. HE. 1) GO TO 30 C0NMI9S1 

IF ( DFTDF 1 . LT . 1 . 0E-2Q ) GO TO 30 CONMI982 

C - — CONN 1 983 

C FIND FLETCHER-REEVES CONJUGATE DIRECTION COMMI904 

C CONMI905 

BETA=OFTDF/DFTDF 1 C0MMI986 

SLOPE=0. CONMI907 

DO 20 1=1, NDV COKMX900 

DFI=OF ( I ) CONMI909 

SI=BETA»S(I)-DFI CONM1990 

SL0PE=SL0PE*5I»DFI C0NMI991 

20 5(I) = SI C0NMI992 

GO TO 50 CONMI 993 

30 CONTINUE C0NMI994 

MCA LC=0 C0NMI995 

C --- — - - C0NMI996 

C CALCULATE DIRECTION OF STEEPEST DESCENT C0NNI997 

C C0NMI998 

DO 40 1=1 , NDV C0HI1I999 

40 $( I ) = -DF ( I ) CONMI 000 

SLOPE=-DFTDF CONMIOOI 

50 CONTINUE CONMI 002 

C CONMI 003 

C NORMALIZE S TO MAX ABS VALUE OF UNITY CONMI 004 

C - - CONMI 005 

S1=0. CONMI 006 

DO 60 1=1, NDV CONMI 007 

52=ABS( 5(1)1 CONMI 008 

IF (S2.GT.S1 ) SI =S2 CONM1009 

60 CONTINUE CONMI 010 

IF (SI .LT.1 .QE-ZQ) Sl=1.0E-20 COUM1Q11 

SI =1 ./SI CONMI 01 2 

DFTDF 1 =DFTDF*S1 C0NMI0I3 

DO 70 1=1, NDV CONMI 014 

70 S(I)=S1»S(I) CONMI 015 

SLOPE=SI ASLOPE CONMI 0 1 6 

RETURN CONMI 01 7 

END CONMI 01 8 

SUBROUTINE CNMN03 ( X,S, SLOPE , ALP, FFF , A! ,A2 ,A3, A4 ,F1 , F2 , F3 , F4 , APP ,NCONM I 0 1 9 
1 1 i NCAL , KOUNT , JGOTO ) CONMI 020 


COMMON /CNMN1/ DELFUH ,OABFUN , FDCH , FDCHM , CT ,CTMIN , CTL , CTLMIN , ALPHAXCON111 021 


1 , ABCBJ1 .THETA, OBJ, NDV, NCON ,NSIDE ,IPPINT ,NFDG ,NSCAL, LINODJ , ITMAX , 
2RM.ICHDIR, IGOTO, MAC, INFO, IHFCG, ITER 
DIMENSION XtNII, 5 ( N 1 ) , NCAL(Z) 

ROUTINE TO SOLVE 01 IE -DIMENSION AL SEARCH IN UNCONSTRAINED 
MINIMIZATION USING 2-POINT QUADRATIC INTERPOLATION, 3-POINT 
CUBIC INTERPOLATION AND 4-POINT CUBIC INTERPOLATION. 

BY G. N. VANDERPLAATS APRIL, 1972. 

NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 

ALP = PROPOSED MOVE PARAMETER. 

SLOPE = INITIAL FUNCTION SLOPE = S-TRAN5P0SE TIMES DF. 

SLOPE MUST BE NEGATIVE. 

OBJ = INITIAL FUNCTION VALUE. 

ZRO=Q. 

IF ( JGOTO. EQ. 0 ) GO TO 10 

GO TO (50,60, 1 10, 140, 180, 220, 270), JGOTO 

INITIAL INFORMATION (ALPHA=0) 

IF ( SLOPE. LT.O. ) GO TO 20 
ALP=0 . 

RETURN 

CONTINUE 

IF ( IPRINT.GT .4 1 WRITE (6,360) 

FFF=OBJ 
API =0. 

A1=0. 

F 1 =OBJ 
A2=ALP 
A3 = 0. 

F 3 = 0 . 

AP = A2 
KOUNT=0 

MOVE A DISTANCE AP*S AND UPDATE FUNCTION VALUE 

CONTINUE 
KOUNT = KOUNT *1 
DO 40 1=1 , NDV 
X( I ) =Xl I ) + AP*S( I ) 

IF ( IPRINT.GT. 4 ) WRITE (6,370 ) AP 

IF ( IPRINT.GT. 4) WRITE (6,360) ( XI I ) ,1=1 ,NDV ) 

NCALC 1 ) = NCAL( 1 )M 

JGOTO= 1 

RETURN 

CONTINUE 

F2=CBJ 

IF ( IPRINT.GT. 4) WRITE (6,390) F2 
IF 1 F2.LT.F1 ) GO TO 120 

CHECK FOR ILL-CONDITIONING 

IF (KOUNT . GT . 5 1 GO TO 60 
FF=2.«AP5( FI ) 

IF IF2.LT.FF ) GO TO 90 
FF=5 . *ACS( F 1 ) 

IF (F2.LT.FF ) GO TO 60 

A2=.5»A2 

AP=-A2 

ALP=A2 

GO TO 30 


ITCONM1 022 
CONMI 023 
CONMI 024 
CONMI 025 
CONMI 026 
CONMI 027 
CONMI 028 
CONMI 029 
CONMI 030 
CONMI 031 
CONMI 032 
CONMI 033 
CONMI 034 
CONMI 035 
CONMI 036 
— CONMI 037 
CONMt 038 
■—CONMI 039 
CONMI 040 
CONMI 041 
CONMI 042 
CONMI 043 
CONMI 044 
CONMI 045 
CONMI 046 
CONMI 047 
CONMI 048 
CONMI 049 
CONMI 050 
CONMI 051 
CONMI 052 
CONMI 053 
---CONMI 054 
CONMt 055 
— CONMI 056 
CONMI 057 
CONMt 058 
CONMI 059 
CONMI 060 
CONMI 061 
CONMI 062 
CONMI 063 
CONMI 064 
CONMI 065 
CONMI 066 
CONMI 067 
CONMI 068 
CONMI 069 
■—CONMI 070 
CONMI 071 
— CONM1072 
CONMI 073 
CONMI 074 
CONMI 075 
CONMI 076 
CONMI 077 
CONMI 078 
CONMI 079 
CONMI 080 
CONMI 031 
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60 F3=F2 CONttl 082 

A3=A2 COUM1083 

A2=.5*A2 CONttl 084 

C CONM1085 

C UPDATE OESIGN VECTOR AND FUNCTION VALUE CONttl 086 

C - CONIil 087 

AP=A2-ALP CONttl 088 

ALP=A2 CONttl 089 

DO 70 1=1, NDV CONM1 090 

70 xm=x(i>+AP*sm conmio9i 

IF ( I PRINT . GT . 4 ) WRITE (6,370) A2 CONM1092 

IF (IPRINT. GT. 4) WRITE (6,380) (X( I ) ,1= 1 ,NDV ) CONM1093 

NCAL( 1 ) =NCAL( 1 )♦ 1 COIU11094 

JGOTO-2 CONM1095 

RETURN CONDI 096 

80 CONTINUE COMM 1 097 

F2=OBJ CONM1098 

IF ( IPRINT. GT. 4 ) WRITE (6,390) F2 CONM1099 

C PROCEED TO CUBIC INTERPOLATION. CONMItOO 

GO TO 160 CONIil 101 

90 CONTINUE CONttl 102 

C — CONttl 103 

C ********** 2-POINT QUADRATIC INTERPOLATION *««*wiHM*t»CONtt1 1 04 

C - CONN) 105 

JJ=1 C0NM1106 

11=1 CONM1107 

CALL CNMN04 ( II , APP,ZRO, A1 ,F1 , SLOPE, A 2 ,F 2 ,ZRO,ZRO,ZRO,ZRO) CONmiOS 

IF (APP.LT.ZRO.OR.APP.GT.A2) GO TO 120 CONH1109 

F3=F2 CONH1110 

A3=A2 CONM1111 

A2=APP CONM1 1 1 2 

JJ=0 CONM1113 

c — - comm* 

C UPDATE DESIGN VECTOR AND FUNCTION VALUE CONM1115 

C - - - COMM1 1 1 6 

AP=A2-ALP CONttl 11 7 

ALP=A2 CONttl 11 8 

DO 100 1=1, NDV CONM1119 

100 X( I )=X( I )+AP*Sl I ) CONM1120 

IF (IPRINT. GT. 4) WRITE (6,370) A2 CONttl 121 

IF ( IPRINT. GT . 4 ) WRITE (6,380) ( X( I ) , 1 = 1 ,NDV ) CONM1122 

NCAH 1 )=NCAL( 1 ) + 1 CONM1123 

JGOTO=3 CONttl 1 24 

RETURN CONttl 1 25 

110 CONTINUE CONttl 126 

F2=0BJ CONttl t 27 

IF ( IPRINT. GT. 4 ) WRITE (6,390) F2 CONM112S 

GO TO 150 CONttl 129 

120 A3=2.*A2 CONttl 130 

C - CONttl 131 

C UPDATE DESIGN VECTOR AND FUNCTION VALUE CONM1132 

C CONttl 133 

AP=A3-ALP CONttl 1 34 

ALP=A3 CONM1135 

DO 130 1=1, NOV CONM1136 

130 XT I )=Xl I ) +AP*S( I ) CONttl 137 

IF ( IPRINT.GT.4 ) WRITE (6,370) A3 C0HM1138 

IF (IPRINT. GT. WRITE (6,380) ( X( I ) ,1 = 1 ,NDV ) C0NM1139 

NCAL( 1 )=NCAL( 1 ) + 1 CONttl 1 40 

JG0T0=4 CONIil 141 


RETURN CONttl 1 42 

140 CONTINUE CONttl 143 

F3=0bJ CONttl 1 44 

IF ( IPRINT. GT. 4) WRITE (6,390) F3 CONttl 145 

150 CONTINUE CONttl 146 

IF (F3.LT.F2) GO TO 190 CONttl 147 

160 CONTINUE CONttl t 48 

C CONttl 149 

C ********** 3-POINT CUBIC INTERPOLATION ********** CONttl 150 

C - - CONttl 151 

11=3 CONttl 1 52 

CALL CNMN04 ( II , APP,ZRO, A1 ,F 1 , SLOPE , A2 , F2 , A3 , F3 ,ZRO,ZRO ) C0NM1153 

IF ( APP . LT . ZRO . OR . APP . GT . A3 ) GO TO 190 CONttl 154 

C CONttl 1 55 

C UPDATE DESIGN VECTOR AND FUNCTION VALUE. CONM1156 

C - - CONttl 157 

API =APP CONttl 158 

AP=APP-ALP CONttl 1 59 

ALP=APP CONttl 160 

DO 170 1=1, NDV CONttl 161 

170 X(I)=Xm+AP#Sm CONM1 162 

IF (IPRINT. GT. 4) WRITE (6,370) ALP C0NM1163 

IF (IPRINT. GT. 4) WRITE (6,360) ( X( I ) , 1=1 ,NDV ) C0NM1164 

NCALM >=NCALM) + 1 C0Nttl165 

JGOTO=5 CONttl 166 

RETURN CONttl 167 

180 CONTINUE CONttl 168 

IF ( IPRINT. GT. 4) WRITE (6,390) OBJ CONttl 169 

C - CONttl 170 

C CHECK CONVERGENCE CONttl 171 

C CONttl 172 

AA=1.-APP/A2 CONttl 1 73 

AB2=AB5(F2) CONH1174 

AB3=ABS( OBJ ) CONttl 175 

AB=AB2 CONttl 1 76 

IF (AB3.GT.AB) AB=AB3 CONttl 177 

IF (AB.LT.1 .OE-15) AB=1.0E-15 CONttl 1 78 

AB=( AB2-AB3 )/AB CONttl 1 79 

IF (ABS(AB).LT.I .OE-15. AND. ABSIAAJ.LT. .001 ) GO TO 330 CONM1180 

A4=A3 CONttl 181 

F4=F3 CONM1182 

A3=APP CONttl 183 

F3=0BJ CONttl 184 

IF (A3.GT.A2) GO TO 230 CONttl 185 

A3=A2 CONM1106 

F3=F2 CONttl 187 

A2=APP CONttl 188 

F2=OBJ CONttl 189 

GO TO 230 CONttl 190 

190 CONTINUE CONM1191 

C CONttl 1 92 

C ««*«#«**«# 4-POINT CUBIC INTERPOLATION hmmhhhuhi* C0Ntt1193 

C CONttl 1 94 

200 CONTINUE CONttl 1 95 

A4=2.*A3 CONttl 1 96 

C UPOATE DESIGN VECTOR AND FUNCTION VALUE. C0NM1197 

AP=A4-ALP CONttl 198 

ALP=A4 CONttl 199 

DO 210 1=1, NDV CONttl 200 

210 X(I)=X(I)+AP#S(I> CONH1201 
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IF (IPRINT.GT.4) WRITE (6.370) ALP CONM1202 

IF (IPRINT.GT.4) WRITE (6,380) ( XII) , 1= l *MDV ) CONNI203 

NCAL( t )=NCALl 1 ) f 1 CONM1204 

JG0T0=6 CONftt205 

RETURN COt »m 206 

220 CONTINUE C0NM12Q7 

F4=0BJ CONN! 208 

IF ( IPRINT.GT.4 ) WRITE (6,390) F4 CONM1209 

IF ( F4.GT.F3) GO TO 230 C0NM12I0 

At=A2 CONN) 2 U 

F1=F2 CONM1212 

A2=A3 C0NM1 2 1 3 

F2=F3 COHN ( 2 14 

A3=A4 CONttt 2 1 5 

F3=F4 CONN) 216 

GO TO 200 CONM1217 

230 CONTINUE CONM1216 

11=4 C0NN1219 

CALL CNMN04 ( II,APP,A1 ,A1 ,F1 , SLOPE, A2,F2, A3, F3,A4,F4 ) CONM1220 

IF UPP.GT.AU GO TO 250 CONM1221 

AP=A1 -ALP CONN1222 

ALP=At CONM1223 

OBJ=F1 CONM1224 

DO 240 1=1, NDV COMM I 225 

240 xm=xm+AP*sm count 226 

GO TO 280 CONM1227 

250 CONTINUE CONN 1228 

C - - CONH1 229 

C UPDATE DESIGN VECTOR AND FUNCTION VALUE CONN! 230 

C - C0UM1231 

AP=APP-ALP CONN I 2 32 

ALP=APP COMM 1233 

DO 260 1=1, NDV CONM1234 

260 X(I)=Xm+AP*S(I) COIIM1 235 

IF UPRINT.GT.4) WRITE (6,370) ALP COMM 1236 

IF ( IPRINT.GT.4) WRITE (6,380) ( X( I ) , 1=1 ,N0V ) CONM1237 

NCAL1 1 )=NCAL(1) + 1 CONM123® 

JG0T0=7 CONN1239 

RETURN COUNI 240 

270 CONTINUE COMM1 241 

IF (IPRINT.GT.4) WRITE (6,390) OBJ CONM1242 

280 CONTINUE COHN t 243 

C CONM1244 

C CHECK FOR ILL-CONDITIONING CONN! 245 

C COUN1246 

IF (OBJ.GT.F2.OR.OBJ.GT.F3) GO TO 290 COHMI247 

IF (OBJ.LE.F1) GO TO 330 C0NN1248 

AP=Al -ALP C0NM1249 

ALP=At COMNJ250 

OBJ=F1 CONN! 251 

GO TO 310 COI INI 252 

290 CONTINUE CONN! 253 

IF (F2.LT.F3) GO TO 300 COIIN1254 

QBJ=F3 CONM 1 255 

AP=A3-ALP CONN1 258 

ALP=A3 COUNt 257 

GO TO 310 COMM 1258 

300 OBJ=F2 CCNM1 259 

AP=A2-ALP CONM1260 

ALP=A2 COUtU 26 l 


UPDATE DESIGN VECTOR 


CPNN1 2G2 
-CQNM1 263 
COUNI 264 


DO 320 1=1 »)1DV 

x(u=x(i)up#sm 

CONTINUE 


CHECK FOR HULTIPLE MINIMA 


IF (ODJ.LE.FFF) GO TO 350 
INITIAL FUNCTION IS MINIMUM. 
DO 340 I=t,HDV 
X(I) = X(I)-ALP*S(I) 

AlP=0. 

OBJ=FFF 

CONTINUE 

JGOTO=0 

RETURN 


FORMATS CONI 112 

- COt (Ml 2 

COHN 1 2 
COMM I 2 

FORMAT 1/////5X.60H* * * UNCONSTRAINED ONE-DIMENSIONAL SEARCH INFOCONM12 


1RMATION • * *) 

FORMAT (/5X.7HALPHA =, E 14. 5/5X ,8HX- VECTOR ) 

FORMAT (5X.6E13.5) 

FORMAT ( /5X , 5HOBJ =>E!4.5) 

END 

SUBROUTINE CNMN04 ( II .XBAR , EPS , XI , Y1 .SLOPE ,X2 , Y2 ,X3, Y3 ,X4 ,T4 ) 
ROUTINE TO FINO FIRST XBAP.GE.EPS CORRESPONDING TO A MINIMUM 
OF A ONE -DIMENSIONAL REAL FUNCTION BT POLYNOMIEL INTERPOLATION. 
BT G . M. VANOERPLAATS APRIL, 1972. 

NASA- AMES RESEAPCH CENTER, MOFFETT FIELD, CALIF. 

II = CALCULATION CONTROL. 


1 ■ 2-POINT QUADRATIC INTERPOLATION, GIVEN XI, Y1 , SLOPI 
X2 AND Y2 . 

2; 3-POINT QUADRATIC INTERPOLATION, GIVEN XI , Yt, X2, 
X3 AND Y3 . 

3: 3-POINT CUBIC INTERPOLATION, GIVEN XI, Y1 , SLOPE, X: 

X3 AND Y3. 

4: 4-POINT CUBIC INTERPOLATION, GIVEN XI, Y1 , X2 , Y2, 1 

Y3 » X4 AND Y4 . 

EPS MAY BE NEGATIVE. 

IF REQUIPEO MINIMUM ON Y DOES NOT EXITS, OR THE FUNCTION IS 
ILL-CONDITIONED, XBAR = EPS-1.0 WILL BE RETURNED AS AN ERROR 
INDICATOR. 

IF OESIPEO INTERPOLATION IS ILL-CONDITIONED , A LOWER ORDER 
INTERPOLATION, CONSISTANT WITH INPUT DATA, WILL BE ATTEMPTED 
AND II WILL BE CHANGED ACCORDINGLY. 

XBAR1 =EPS- 1 . 

XBAR=XB4R1 
X2t =X2-X1 

IF ( ABS(X21).LT.l .0E-20) RETURN 
NSLOP=MOD( 11,2 ) 

GO TO ( 10, 20, 40, 50), II 
CONTINUE 


COMM 1 2 
CONN) 2 
COt (Ml 2 
CONM1 2 
COt (Ml 2 

Y3,X4,Y4) COt 1111 2 

, MINIMUM CONN I 2 

ERPOLATION. CONM12 

1972. CONM12 

cotime 

CONM12 
CONN 12 

Yt , SLOPE, CONM12 

COttMl 3 

Yt, X2, Y2 » COUNt 3 

CONM13 

SLOPE, X2, Y2.COt(M13 
CONfll 3 

X2, Y2 , X3 , CONM13 
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C 11 = 1 : 2-POINT QUADRATIC INTERPOLATION COMT1I322 

C - CONM1323 

11=1 CONMt 324 

DX=X1 -X2 CONMt 325 

IF (ABS(OX).LT.I .0E-20) RETURN CONM1326 

AA=( SLOPE +( Y2-Y1 )/DX )/OX CONMt 327 

IF 1 AA.LT.1 .0E-20) RETURN COMM1328 

BB=SLOFE-2 . #AA*X1 COI1M1329 

XBAR=-.5«BB/AA COMM 330 

IF (XBAR.LT.EPS) XBAR=XBAR1 COHM1331 

RETURN CONMt 332 

20 CONTINUE COMM 333 

C -- CONM1 334 

C 11 = 2: 3-POINT QUADRATIC INTERPOLATION CONI11 335 

C - CONM1336 

11 = 2 COMM 1337 

X21 =X2-X1 COMM I 336 

X31 =X3-X1 COMM 1 339 

X32=X3-X2 COIIM1340 

Qq=X21»X31*X32 CONMt 341 

IF ( ABSIQQJ.LT.I .OE-20) RETURN CONM1342 

AA = m*X32-Y2«X3J*Y3*X21 )/QQ COIIM1343 

IF (AA.LT.1 .0E-20) GO TO 30 CONM1 344 

BB=( Y2-Y1 J/X21-AAMX1+X2) COMM 345 

XBAR=-.5*BB/AA CONMt 346 

IF (XBAR.LT.EPS) XBAR=XBAR 1 CONMI347 

RETURN CONMt 340 

30 CONTINUE COMM1 349 

IF (NSLOP.EQ.O) RETURN CONN1350 

GO TO 10 CONMt 351 

AO CONTINUE CONM1352 

C — - COMM1 353 

C 11=3: 3- POINT CUBIC INTERPOLATION COMM1 354 

C - - CONM1355 

11=3 CONM1356 

X2 1 =X2-X1 COMM 1 357 

X31 =X3-X1 CONN 1 356 

X32=X3-X2 CONN1 359 

QQ=X2 1 »X31 *X32 CONM1360 

IF (ABS(Qq).LT.I .0E-20) RETURN COHN1361 

XI 1 =X 1 »X1 CONH1 362 

DHOM=X2#X2»X31 -XI 1 ^OOE-XS^XJ^XZ 1 CONMt 363 

IF ( ABSt DNONJ.LT. 1 .0E-20) GO TO 20 COMM 364 

AA=((X31*X31#(Y2-Y1 J-X21 *X21 *( Y3-Y1 ))/(X31#X2J >-SLOPE#X32 )/DNON COHM1365 
IF ( ABSIAAJ.LT. 1 .0E-20) GO TO 20 CONM1 366 

BB = t ( Y2-Y1 )/X21-SLOPE-AA»(X2#X2+X1»X2-2 ,*X1 1 > J/X21 COUNI 367 

CC =S LOPE-3. #AA#X1 1 -2.#BB*X1 CONMt 366 

BAC=BB#BB-3. #AA#CC CONMt 369 

IF (BAC.LT.O.) GO TO 20 CONM1 370 

BAC = 5QRTt BAC ) CONNI37I 

XBAR=(BAC-B3!/(3.*AA) C0UN1372 

IF (XBAR.LT.EPS) XBAR=EPS COUM1373 

RETURN CONN 1 374 

50 CONTINUE CONMt 375 

C - - CONMt 376 

C 11=4: 4-FOINT CUBIC INTERPOLATION CONM1 377 

■C COMM1 376 

X21=X2-X1 C0MM1379 

X31 =X3-X1 COUM130O 

X4 1 =X4-X1 CONMt 30 1 


X32=X3-X2 CONM1302 

X42 = X4-X2 CONMt 363 

X11=X1*X1 CONMt 304 

X22=X2#X2 CONI113S5 

X33=X3*X3 C01IM1 336 

X44=X4*X4 COMM1 387 

X111=X1*X11 CONm300 

X222=X2-X22 CONM1339 

Q2=X3 1 *X2 1 #X32 COMM 390 

IF ( ABS( Q2 ) . LT. 1 . 0E-30 ) RETURN CONMt 391 

Q1 =X1 1 1 *X32-X222*X31 +X3*X33*X21 CONNt392 

Q4 = X 1 1 1*X42-X222»X4I ♦X4#X44*X21 CONMt 393 

q5=X41*X21#X42 COMI11394 

DNOM = Q2 ^Q4-Q1 *Q5 CONI11395 

IF ( AB5( DMOM J.LT.1 . 0E-30 ) GO TO 60 COUM1 396 

Q3=Y3#X21 -Y2*X31 +Y1*X32 CONN1 397 

q6 = Y4*X21-Y2HX41 +Y1*X42 CONMt 390 

AA=( Q2*Q6-Q3*Q5 J/DNON CONMt 399 

BB=(Q3-Q1*AA 1/Q2 CONH1400 

CC=( Y2-Y1-AA*(X222-X1 11 ) )/X2 1 -BBM XI +X2 ) C0NM140I 

BAC=BB“BB-3.*AA«CC C0NMt402 

IF ( ABSf AAJ.LT.1 .0E-20. OR. BAC.LT.O. ) GO TO 60 CONMt403 

BAC=SORT(BAC) CONMt404 

XBAR = ( BAC-BB )/( 3. *AA ) CONMI405 

IF (XBAR.LT.EPS) XBAR=XBAR1 CONM1406 

RETURN CONM1407 

CONTINUE CONMI408 

IF (M5LOP.EQ.il GO TO 40 COUMI409 

GO TO 20 CONN1410 

END CONMt 4 It 

SUBROUTINE CNMN05 ( G ,DF , A , S , B ,C , SLOPE , PHI , ISC , IC ,MS1 ,NVC,N1 ,N2 ,N3,C0NM1 41 2 
1 N4 , H5 ) C0NM141 3 

COMMON /CNMN1 / DELFUN , DABFUN, FDCH , FDCHM ,CT ,CTMIN,CTL .CTLMIN, ALPHAXCONH1 41 4 
1 , ABOB J1 i THETA ,OBJ ,N0V » NCON . NSIDE » IPR INT »NFDG . NSCAL * LINOBJ , ITMAX , ITCONM1 41 5 
2RM, ICNDIR , IGOTO »NAC , INFO, INFOG, ITER CONMt 41 6 

DIMENSION DF( N1 ) , G(N2), ISC(N2), IC(N3), AIN1.N3), S(N1), C(N4), CONMt4t7 
IMS! ( N5 ) , B(N3,N3) C0NM14tB 

ROUTINE TO SOLVE DIRECTION FINDING PROBLEM IN MODIFIED METHOD OF C0NN1419 
FEASIBLE DIRECTIONS. CONN1420 

BY G. N. VANDERPLAATS MAY, 1972. CONM1421 

NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. CONM»422 

NORM OF S VECTOR USED HERE IS S-TRANSPOSE TIMES S.LE.1. CONM1423 

IF NVC = 0 FIND DIRECTION BY ZOUTENDIJK'S METHOD. OTHERWISE CONH1424 

FIND MODIFIED DIRECTION. CONM1425 


NOPMALIZE GRADIENTS, CALCULATE THETA'S AND DETERMINE NVC #**CONM1427 

CONMt 420 

NOVI = NDV + 1 CONN1429 

HDV2=NDV*2 COHM1430 

NAC 1 =NAC + 1 CONMt 431 

NVC = 0 CONMt 432 

THNAX = 0. COMM 1 433 

CTA=ABS(CT) COUM1434 

CT1=1 ,/CTA CONM1435 

CTAM=ABSt CTMIN) CONM1436 

CTB = ABS( CTL ) CONM1437 

CT2 = 1./CTB CONMt 430 

CTBM=ABS( CTLMIN) CONMt 439 

A 1 = 1 . CONM1 440 

DO 4f) 1-1 ,NAC CONM1441 
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C CALCULATE THETA CONMI 442 

NC1=IC( I ) COMMITS 

ncj=i conmw* 

IF (NCI.LE.NCON) NCJ=ISC(NCIl C0NM1445 

C1=G(NCI) comii446 

CTD=CT1 CONMI 447 

CTC=CTAM CONN1448 

IF (HCJAE.01 GO TO 10 CONMI 449 

CTC=CTBM CONM1450 

CT0=CT2 COMMISSI 

10 IF (C1.GT.CTC) NVC=NVC+1 COMM 1 452 

THT=0. CONM1453 

GG=1 . ♦CTD^CI C0NM1454 

IF t NC J . EG . Q . OR . C 1 . GT . CTC ) THT=THETA»GG«GG COUTH 4 55 

IF ( THT.GT.50. ) THT=50. COHN I 456 

IF ( THT.GT.THMAX ) THMAX=THT C0NM1457 

A( NDV1 * I )=THT CONM1458 

c CONM1459 

C NORMALIZE GRADIENTS OF CONSTRAINTS CONMI 460 

C .. - COMM 1 46 1 

A(NDV2 ,1 )=1 . C0MM1462 

IF (NCI.GT.NCON) GO TO 40 COMM1463 

A1=0. C0MM1464 

DO 20 J=1,NDV COMM1 465 

A1 ~A1 + A( J »I )##2 COMM! 466 

20 CONTINUE COMM1467 

IF (A1.LT.1 .0E-20) A1=1.0E-20 CONMI468 

A1 =5QRT( A1 ) C0MM1469 

A( NDV2 » I ) — A 1 COMM t 470 

A1=1./A1 COMM1471 

DO 30 J=1,NDV COMM1472 

30 A( Jt I )=A1 *A( J,I ) COMM1473 

40 CONTINUE COMM 1474 

C - CQNMt 475 

C NORMALIZE GRADIENT OF OBJECTIVE FUNCTION AND STORE IN NACM C0MI11476 

C COLUMN OF A COMI11477 

C - - COMM I 478 

A1=0. COMM 1 479 

DO 50 I=1,NDV COMm 480 

A1=A1+DF(I)*#2 COMMI481 

50 CONTINUE COMM1482 

IF (At . LT. 1 .0E-20 ) A1=1.0E-20 C0MM1463 

At =SQRT( A1 ) C0MM1 484 

A1-1./AI COMM 1 485 

00 60 1=1, NOV COMMt 486 

60 AdfNACI )=A1*»DF(D C0MM1487 

C BUILD C VECTOR. C0NM1488 

IF (NVC.GT.0) GO TO 80 CONHI489 

C COMM1490 

C BUILD C FOR CLASSICAL METHOD C0MM1491 

C — C0NN1492 

NDB=NAC1 COMM1493 

A(NDV1 ,HDB» = 1 . COMM1494 

DO 70 1=1, NOB C0MM1495 

70 Cl I ) = -A( NOVI ,1 ) C0MM1496 

GO TO 110 COMM 1 497 

80 CONTINUE C0MM1493 

C C0MM1499 

C BUILD C FOR MODIFIED METHOD COMM1500 

C CONI1I501 


NDB=NAC COMM1502 

AINDV1 »NAC1 )=-PHI COMMI503 

C - - C0NM1504 

C SCALE THETA’S SO THAT MAXIMUM THETA IS UNITY COMM 1 505 

C - COMM1506 

IF ( THMAX . GT . 0 . 0000 1 ) THMAX=1 ,/THMAX COMMJ507 

00 90 1 = 1 »N0B COMMt 508 

AINDV1 ,I)=AIN0V1 , 1 )#THMAX COMMI509 

90 CONTINUE CONM151Q 

DO 100 1=1, NDB C0NM151 1 

C(I» = 0. COIIMl 5 1 2 

DO 100 J = 1 , NOVI COMMt 51 3 

100 CC 1 1 =Cf I »+At J,I)*A( J.NACI) C0NM1514 

110 CONTINUE CONM1515 

C - C0NMI5I6 

C BUILD B MATRIX CONM1517 

C C0NM1518 

DO 120 1=1 ,NDB C0NN15I9 

DO 120 J=J , NDB COMM15CO 

Bl I > J 1 = 0 . CONM1521 

DO 120 K= 1 ,NDV1 C0NM1522 

120 B(I,J)=Bl I,J)-A(Kiin»A(K.J) CONM1523 

C - - - - C0NM1524 

C SOLVE SPECIAL L. P. PROBLEM CONM1525 

C - - CONM1526 

CALL CNMN08 (NDB ,NER ,C >M51 ,B,N3,N4 ,N5 1 COMM1527 

IF ( IFRINT.GT.1 . AND . HER . GT . 0 ) WRITE 16,180) CDNM1526 

C CALCULATE RESULTING DIRECTION VECTOR, S. CONMI529 

SLOPE-O . CONM1530 

C — - CONM1531 

C USABLE-FEASIBLE DIRECTION CONM1532 

C COMM! 533 

DO 140 1=1 ,MDV CONM1534 

SI =0 . CONM1535 

IF (NVC.GT.O) SI =~A( I ,NAC1 ) CONM1536 

DO 130 J=1 , NDB CONM1537 

130 51=S1-AII,J)«C(J> CONMI 530 

SLOPE 5 SLOPE *5 1 *DF 1 1 ) CONM1539 

140 S(II = S1 COHM 1 540 

S( NDV1 ) = 1 . CONMI 541 

IF (NVC.GT.O) S(NDV1 )=-A(NDV1 ,NAC1 ) CONM1542 

DO 150 J=1 , NDB CONMI 543 

150 S( NO VI 1 = S( NDV1 )-Al HDV1 , J )#C( J ) CONM1544 

C CONMI 545 

C NORMALIZE S TO MAX ABS OF UNITY CCMM1546 

C - - CONMI 547 

51=0. COMM I 540 

DO 160 1=1, NDV CONMI 549 

A1 =AB5( S( I ) ) COMMI550 

IF ( A 1 .GT .SI ) SI =A1 CONMI 551 

160 CONTINUE CONMI 552 

IF (SI . LT. 1 .OE-1 0 > RETURN COMMI553 

SI = 1 ./SI CONN I 554 

DO 170 1=1, NDV COMMt 555 

170 SlI) = S1-Sm COMM1556 

SLOPE=SI "SLOPE CONMI 557 

SIHDVI l = Sl»S(t(OV1 1 conntsss 

RETURN CONMI 559 

C - CONMI 560 

C FORMATS CONMI 56 1 
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C - C0NM1562 

C COMM 156 3 

C C0NM1569 

150 FORMAT (//5X.96H* * DIRECTION FINDING PROCESS DID NOT CONVERGE/5X,CONM1 565 

129H* * S-VECTOR MAY NOT BE VALID) COMM1566 

ENO COMM 156 7 

SUBROUTINE CNMN06 ( X,VLB,VUB,G,SCAL,DF ,S,G1 ,G2,CTAM,CTBM, SLOPE, ALPCONM1 565 
1 ,A2 ,A3, A9,F1 ,F2,F3,CV1,CV2,CV3,CV9,ALPCA,ALPFE3,ALPLN,ALPMIN,ALPNCCONM1569 
2 »ALP5AV, ALPSID* ALPTOT * ISC >N1 ,N2,NCAL,NVC,IC0UNT,IG0QD1 ,IGOOD2 ,IGOOCONM1 570 
3D 3 , IG0QD9 , IBEST , III ,NLNC , JGOTO ) COMM1 571 

COMMON /CNMN1/ DELFUN,DABFUN,FDCH,F0CHM,CT,CTMIN,CTL,CTLMIN,ALPHAXC0NN1572 
1 1 ABOBJ1 » THETA, OBJ »NOV»NCON»NSIDE»IPRINT »NFDG»NSCAL» LINOBJ,ITMAX,ITCOHM1 571 
2RM , ICNDIR , IGOTO , NAC , INFO , INFOG , ITER COMM1 37* 

DIMENSION XIN1 ) • VLB(NI), VUB(Nl), G(N2), SCAL(NI), DF(N1 ) » S< Nt) ,CONM1575 
1 G1 (N2 ) * G2(N2 ) , ISCIN2), NCAL( 2 ) C0NM1576 

C ROUTINE TO SOLVE ONE-DIMENSIONAL SEARCH PROBLEM FOR CONSTRAINED C0MM1577 

C FUNCTION MINIMIZATION. C0MM1575 

C BY G. N. VANDERPLAAT3 AUG. » 1979. COMM1579 

C NA3A-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. CONM1350 

C OBJ = INITIAL AND FINAL FUNCTION VALUE. C0NM1551 

C ALP = MOVE PARAMETER. COMM1562 

C SLOPE = INITIAL SLOPE. C0NM1553 

C C0NM1569 

C ALPSID = MOVE TO SIDE CONSTRAINT. C0NMI5S5 

C ALPFES = MOVE TO FEASIBLE REGION. C0NM1556 

C ALPNC = MOVE TO NEW NON-LINEAR CONSTRAINT. CONM1557 

C ALPLN = MOVE TO LINEAR CONSTRAINT. C0HM15BB 

C ALPCA = MOVE TO RE-ENCOUNTER CURRENTLY ACTIVE CONSTRAINT. CONM1559 

C ALPMIN = MOVE TO MINIMIZE FUNCTION. CONM1S90 

C ALPTOT = TOTAL MOVE PARAMETER. C0NM1S91 

ZR0=0. CONM1592 

IF (JGOTO. EQ.O) GO TO 10 C0NM1593 

GO TO 1 190, 31 0,520), JGOTO C0NM1599 

10 IF (IPRINT.GE.5) WRITE (6,730) C0NM1595 

ALPSAV=ALP CONM1596 

ICOUNT=0 C0MM1597 

ALPTOT=0. COMM! 595 

C TOLERANCES. C0NM1599 

CTAM=ABSl CTMIN ) CONM1 600 

CTBM=AB5( CTLMIN ) CONM1 601 

C PROPOSED MOVE. CONM1602 

20 CONTINUE COMM 1603 

C COMM 1609 

C ***«« BEGIN SEARCH OR IMPOSE SIDE CONSTRAINT MODIFICATION ***** CONM1603 

C COMM1606 

A2=ALPSAV CONM1607 

ICOUNT=ICOUNT + 1 CONM1605 

ALPSID=1 .0E+20 COMM 1609 

C INITIAL ALPHA AND OBJ. CONM1610 

ALP=Q. CONM161 1 

F1=OBJ C0NM161 2 

KSID=0 C0NM161 3 

IF INSIDE. EQ.O) GO TO 70 CONM1619 

C - - - - - COMM1615 

C FIND MOVE TO SIDE CONSTRAINT AND INSURE AGAINST VIOLATION OF C0NM1616 

C SIDE CONSTRAINTS CONM1617 

C - C0NM1618 

DO 60 1=1, NOV C0NM161 9 

SI=S(I) COMM1620 

IF ( ABS( SI ) .GT. 1 . 0E-20 ) GO TO 30 C0MM1621 


C 


30 


C 


c 


c 


90 

C 


C 


C 


50 

C 


60 

C 

70 

C 

C 

C 


C 


60 
,90 
■ C 
C 
C 


ITH COMPONENT OF S IS SMALL. SET TO ZERO. 
S(I)=0. 

SL0PE=5L0PE-SI*DF(I) 

GO TO 60 
CONTINUE 

xi=xm 

SI=1 ./si 

IF (SI.GT.O. ) GO TO 90 
LOWER BOUND. 

XI2=VLB( I ) 

XII =AB51 XI2 ) 

IF (XI1.LT.1.) XI1=1. 

CONSTRAINT VALUE. 

GI=t XI2-XI )/XI1 

IF ( GI.GT. -1 . OE-6 ) GO TO 50 

PROPOSED MOVE TO LOWER BOUND. 

ALPA=( XI2-XI )*SI 

IF (ALPA.LT.ALPSIO) ALPSID=ALPA 

GO TO 60 

CONTINUE 

UPPER BOUND. 

XI2=VUB( I ) 

XI1=ABS(XI2) 

IF (XI1.LT.1.) XU =1 . 

CONSTRAINT VALUE. 

GI=< XI-XI2 )/XI1 
IF 1GI.GT.-1 .OE-6) GO TO 50 
PROPOSED MOVE TO UPPER BOUND. 

ALPA=( XI2-XI )*SI 

IF (ALPA.LT. ALPSID) ALPSID=ALPA 

GO TO 60 

CONTINUE 

MOVE WILL VIOLATE SIDE CONSTRAINT. SET S(I)=0. 

SLOPE=SLOPE-S(I)*DFm 

S(I)=0. 

KSID=KSID+1 

CONTINUE 

ALPSID IS UPPER BOUND ON ALPHA. 

IF (A2.GT. ALPSID) A2=ALPSID 
CONTINUE 


CHECK ILL-CONDITIONING 


IF (KSID. EQ.NDV.OR.ICOUNT.GT. 1 0 ) GO TO 710 
IF (NVC. EQ.O. AND. SLOPE. GT. 0. ) GO TO 710 
ALPFES=-1 . 

ALPMIN=-1 . 

ALPLN=1 . 1*ALPSID 

ALPNC=ALPSID 

ALPCA=ALFSIO 

IF (NCON.EQ.O) GO TO 90 

STORE CONSTRAINT VALUES IN G1. 

DO 80 1=1 ,NCON 
G1(I)=G(I) 

CONTINUE 

CONTINUE 


MOVE A DISTANCE A2"S 


ALPTOT=ALPTOT + A2 


CONM1622 
COM111623 
COMM1629 
COMM1625 
C0Mtl1626 
C0MM1627 
CONM1 623 
CONI11629 
COMM1630 
C011M 1 631 
CONtll 632 
COMM1633 
COMM 1639 
COMM 1635 
COMM 1636 
COMM 1637 
COMM1638 
C0HM1639 
COMM1690 
CONM1691 
COMM1692 
COMM 1693 
C0MM1699 
COMM 1695 
CONM1696 
CONM1697 
COMM1695 
COMM 1699 
COMM 1650 
COMM1651 
COMM 1652 
CONM1653 
COMM 1659 
COMM1655 
COMM 1656 
COMM 1657 
C0NM1658 
COMM 1659 
CONM1660 
C0NM1661 
-COMM1662 
COMM 1663 
-COMM 1669 
C0NMI665 
CONM1666 
COHM1667 
C0NM1668 
COMM1669 
COMMt 670 
COMM1671 
COMM1672 
C0MM1673 
C0NM1679 
CONM1675 
COMN1676 
C0MM1677 
-C0NM167B 
C0MM1679 
-CCMM1 680 
COMM1601 
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DO 100 1=1, NDV COHN16BZ 

X(I)=^(I)+A2*S(I) CONM1683 

100 CONTINUE CONMl 604 

IF (IPRINT.LT. 5) GO TO 130 COMM 1685 

WRITE ( 6 , 7^*0 ) A2 C0NM1686 

IF (NSCAL.EQ.O) GO TO 120 CONM1687 

DO 1 10 1=1 i NDV CONMl 686 

110 G( 1 ) -SC A L ( I )#X( I ) CONMl 669 

WRITE (6,750) ( G( I ) , 1=1 ,KDV ) CONMl 690 

GO TO 130 CONM1691 

120 WRITE (6,750) (X( I ) ,1=1 ,NOV ) CONMl 692 

C CONMl 693 

C UPDATE FUNCTION AND CONSTRAINT VALUES CONMl 694 

C CONMl 695 

130 NCAL( 1 )=NCAL( 1 )M C0NM1696 

JGOTO=1 CONMl 6 97 

RETURN CONMl 695 

140 CONTINUE CONM1699 

F2=OBJ CONMl 700 

IF ( IPRINT.GE .5 ) WRITE (6,760) F2 CONM1701 

IF (IPRINT.LT. 5. OR. NCON.EQ.O) GO TO 150 CONM1702 

WRITE (6,770) CONMl 703 

WRITE (6,750) (G( I ) , 1=1 »NCON) CONMl 704 

150 CONTINUE CONMl 705 

C CONMl 706 

C IDENTIFY ADAPTABILITY OF DESIGNS FI AND F2 CONMl 707 

C - - CONMl 706 

C IGOOD = 0 IS ACCAPTABLE. CONMl 709 

C CV = MAXIMUM CONSTRAINT VIOLATION. CONI11 710 

IGOOD 1 =0 CONMl 711 

IGQ0D2=0 CONMl 71 2 

CV1=0. CONMl 71 3 

CV2=0 . CONMl 714 

NVC 1=0 CONMl 71 5 

IF (NCON.EQ.O) GO TO 170 COHM1716 

DO 160 1=1 >NCON CONMl 71 7 

CC=CTAM CONMl 716 

IF (ISC(I).GT.O) CC=CTBM CONMl 71 9 

Cl =G1 ( I )-CC CONMl 720 

C2=G( I )-CC CONMl 721 

IF (C2.GT.0.) NVC1 =NVC1 +1 CONMl 722 

IF (Cl . GT.CV1 ) CV1=C1 CONMl 723 

IF (C2.GT.CV2) CV2=C2 CONMl 724 

160 CONTINUE CONMl 725 

IF (CV1.GT.0.) TGOOD 1 = 1 CONMl 726 

IF (CV2.GT.0.) IGOOD2=1 CONMl 727 

170 CONTINUE CONMl 726 

ALP=A2 CONMl 729 

08J=F2 CONMl 730 

C — - CONMl 731 

C IF F2 VIOLATES FEWER CONSTRAINTS THAN FI BUT STILL HAS CONSTRAINT CONMl 732 

C VIOLATIONS RETURN CONMl 733 

C — CONMl 734 

IF ( NVC 1 . LT . NVC . AND . NVC 1 . GT . 0 ) GO TO 710 C0NM1735 

C CONMl 736 

C IDENTIFY BEST OF DESIGNS FI ANF F2 CONMl 737 

C - CONMl 738 

C IBEST CORRESPONDS TO MINIMUM VALUE DESIGN. CONMl 739 

C IF CONSTRAINTS ARE VIOLATED, IBEST CORRESPONDS TO MINIMUM CONII1 740 

C CONSTRAINT VIOLATION. CONMl 741 


IF ( IGOOOI . EQ . 0 . AMD . IGOOD2 . EQ. 0 ) GO TO 180 CONMl 742 

C VIOLATED CONSTRAINTS. PICK MINIMUM VIOLATION. CONMl 743 

IBEST= 1 CONMl 744 

IF (CV1.GE.CV2) IBEST=2 CONI11745 

GO TO 190 CONMl 746 

180 CONTINUE CONMl 747 

C NO CONSTRAINT VIOLATION. PICK MINIMUM F. CONMl 748 

IBEST=1 CONMl 749 

IF (F2.LE.F1) IBE5T=2 CONMl 750 

190 CONTINUE CONMl 751 

11=1 CONMl 752 

IF (NCON.EQ.O) GO TO 230 CONMl 753 

C - - CONMl 754 

C ***** 2 - POINT INTERPOLATION ««#w#CONMl 755 

C - - — - CONMl 756 

111=0 CONMl 757 

200 III = IIIM CONMl 756 

C1=G1 ( III ) CONMl 759 

C2=G( III ) CONMl 760 

IF (ISC(III).Eq.Q) GO TO 210 CONM176I 

C — CONMl 762 

C LINEAR CONSTRAINT CONMl 763 

C CONMl 764 

IF (Cl. GE . 1 .OE-5. AUD.C1 .LE.CTBH) GO TO 220 CONM1765 

CALL CNMH07 ( II , ALP, ZRO, ZRO , Cl ,A2 ,C2,ZRO,ZRO) C0NMt766 

IF (ALP. IE. 0.) GO TO 220 CONMl 767 

IF (Cl .GT.CTBM.AND.ALP.GT.ALPFES) ALPFES=ALP CONMl 768 

IF (Cl . LT. CTL.AND.ALP.LT. ALPLN) ALPLN=ALP CONMl 769 

GO TO 220 CONMl 770 

210 CONTINUE CONMl 771 

C — — CONMl 772 

C NON-LINEAR CONSTRAINT CONMl 773 

C - CONMl 774 

IF (Cl .GE. 1 .OE-5. AND. Cl .LE.CTAM) GO TO 220 CONM1775 

CALL CHMN07 ( II , ALP, ZRO ,ZRO ,C1 , A2 ,C2,ZRO,ZRO ) CONMl 776 

IF (ALP.LE.O.) GO TO 220 CONM1777 

IF (Cl . GT .CTAM. AND . ALP.GT . ALPFES ) ALPFES=ALP C0NM1776 

IF ( Cl . LT . CT . AND . ALP . LT. ALFNC ) ALPNC=ALP CONM1779 

220 CONTINUE CONMl 760 

IF ( III.LT.NCON) GO TO 200 C0NM1761 

230 CONTINUE CONMl 702 

IF (LINOBJ. GT.O. OR. SLOPE. GE . 0. ) GO TO 240 CONMl 703 

C CALCULATE ALPHA TO MINIMIZE FUNCTION. CONMl 704 

CALL CNMN04 t II , ALPMIN , ZRO ,ZRO, F 1 , SLOPE , A2 ,F2 , ZRO, ZRO , ZRO, ZRO) CON11178S 
240 CONTINUE CONMl 706 

C CONMl 707 

C PROPOSED MOVE CONMl 708 

C - — - — -CONMl 709 

C MOVE AT LEAST FAR ENOUGH TO OVERCOME CONSTRAINT VIOLATIONS. CONMl 790 

A3=ALPFCS CONMl 791 

C MOVE TO MINIMIZE FUNCTION. CONMl 792 

IF ( ALPMIN. GT. A3) A3=ALPMIN CDNMI793 

C IF A3.LE.0, SET A3 = ALPSIO. CONMl 794 

IF (A3.LE.0.) A3=ALPSIO CDNNI795 

C LIMIT MOVE TO HEW CONSTRAINT ENCOUNTER. C0NM796 

IF ( A3.GT.ALPNC) A3=AIPNC CONMl 797 

IF ( A3. GT. ALPLN) A3=ALPLN CONM1790 

C MAKE A3 NON-ZEPO. CONMl 799 

IF (A3.LE.1 -0E-20) A3=1.0E-20 CONMJ0OO 

C IF A3=A2=ALPSID AND F2 IS BEST, GO INVOKE SIDE CONSTRAINT CONMl 801 
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C MODIFICATION. COMT11 BO 2 

ALPB=1 .-A2/A3 COUTH 603 

ALPA=1 .-ALPSID/A3 CONMt 804 

JBEST=0 CONH1805 

IF ( ABS(ALPB).LT.t .OE-tO.AND.ABS( ALPAJ.LT.1 .0E-10) JBEST=1 COftmeOfe 

IF ( JBEST.EQ.1 . AND . IBEST . Eq . 2 ) GO TO 20 CDNN1807 

C SIDE CONSTRAINT CHECK NOT SATISFIED. CONMt 008 

IF (NCON.EQ.O) GO TO 260 CQMT11 609 

C STORE CONSTRAINT VALUES IN G2 . COIITI1 610 

DO 250 1 = 1 ,NCON CONMt 01 I 

G2( I )=G( I ) CONMt 61 2 

250 CONTINUE CONMt 81 3 

260 CONTINUE CONMt 81 4 

C IF A3=A2 » SET A3=.9*A2. C0NM18I5 

IF ( ABS( ALPB J.LT.1.0E-10) A3=.9*A2 CONM1816 

C MOVE AT LEAST .01*A2. CONMt 81 7 

IF (A3.LT.(.01NAZ>) A3=.01»A2 CONM1818 

C LIMIT MOVE TO 5.*A2. CONM1819 

IF ( A3. GT. t 5 . *A2 ) ) A3=5.*A2 CONMI820 

C LIMIT MOVE TO ALP5ID . CONM1821 

IF (A3.GT.ALPSID) A3=ALP5ID CONMt 822 

C MOVE A DISTANCE A3*S. CONMI823 

ALP=A3-A2 CONMt 624 

ALPTOT =ALPTOT + ALP CONMt 625 

DO 270 1 = 1, NDV CONMt 626 

X(I)=:Xm+ALP*5(I> CONM1 627 

270 CONTINUE CONM1826 

IF (IFRINT.LT. 5) GO TO 300 CONM1829 

WRITE (6,780) CONM1630 

WRITE (6,740) A3 CONM1631 

IF (NSCAL.EQ.O) GO TO 290 CONM1832 

DO 260 I=t,NDV C Of (Ml 833 

280 G( I )=SCAL( I )#X( I ) C0NM1634 

WRITE (6,750) ( G( I ) , 1=1 ,NDV ) C0NM1635 

GO TO 300 CONM1636 

290 WRITE (6,750) ( X( I ) ,I=t ,NDV ) CONMI637 

300 CONTINUE CONM1638 

C - — - CONMt 639 

C UPDATE FUNCTION AND CONSTRAINT VALUES CONNt640 

C - — CONM1841 

NCALM )=NCAL( 1 )+t COUTH 842 

JGOTO=2 CONM1 843 

RETURN CONMt 844 

310 CONTINUE CONM1845 

F3=0BJ CONMt 846 

IF (IPRINT.GE.5) WRITE (6,760) F3 C0NM1647 

IF (IFRINT.LT. 5. OR. NCON.EQ.O) GO TO 320 C0NM1B48 

WRITE (6,770) CONM1849 

WRITE (6,750) (G( 11*1=1 ,NCON ) CONMt 850 

320 CONTINUE CONMt 851 

C - - -CONMt 852 

C CALCULATE MAXIMUM CONSTRAINT VIOLATION AND PICK BEST DESIGN CONMt 853 

C — - COTMIt 854 

CV3=0. CONMt 855 

IG00D3=0 COMM 1856 

NVC1 = 0 COT I1 11 857 

IF (NCON.EQ.O) GO TO 340 CONMt 858 

DO 330 1=1 ,NCON C0NM1859 

CC = CT AM CONM1860 

IF (ISC(I).GT.O) CC=CTBM COUTH 861 


Cl - G ( I ) -CC CONMt 862 

IF (Ct.GT.CV3) CV3=C1 COT1M1B63 

IF (C1.GT.0.) NVCt=NVCt+1 C0MM1864 

330 CONTINUE CONMI885 

IF (CV3.GT.0.) IG00D3= 1 COMT11866 

340 CONTINUE CONMt 867 

C DETERMINE BEST DESIGN. C0NM1868 

IF ( IBEST. EQ. 2 ) GO TO 360 C0NMt869 

C CHOOSE BETWEEN FI AND F3. CONMt 670 

IF ( I GOOD) . EQ . 0 . AND . I GOOD 3 . EQ . 0 ) GO TO 350 C0NH1871 

IF (CV1.GE.CV3) IBEST=3 C0NMt872 

GO TO 360 COMM1673 

350 IF (F3.LE.FtJ IBEST=3 COf(f(t874 

GO TO 380 CONMt 875 

360 CONTINUE CONMt 876 

C CHOOSE BETWEEN F2 AND F3. CONM1877 

IF ( IGOOD2.EQ.O.AND.IGOOD3.EQ.O ) GO TO 370 CONMt 678 

IF (CV2.GE.CV3) IBEST=3 CONM1879 

GO TO 380 CONMt 860 

370 IF (F3.LE.F2) IBEST=3 COMMISSI 

380 CONTINUE CONMt 882 

ALP = A3 CONMt 883 

0BJ=F3 CONT11 684 

C IF F3 VIOLATES FEWER CONSTRAINTS THAN Ft RETURN. CONM1085 

IF ( NVC1 . LT.NVC ) GO TO 710 CONN16B6 

C IF OBJECTIVE AND ALL CONSTRAINTS ARE LINEAR, RETURN. COUTH 887 

IF ( LINOBJ .HE . 0 .AND .NLNC . EQ.NCOM ) GO TO 71 0 CONMt 888 

C IF A3 = ALPLN AND F3 IS BOTH GOOD AND BEST RETURN. CONMt 689 

ALPB=1 . -ALPLN/A3 CONMt 890 

IF ( ( AB5( ALPB).LT.I.0E-2O. AND . IBEST . EQ . 3 ) . AND . ( IG00D3 . EQ. 0 ) ) GO T0C0NM1891 
t 710 CONM1692 

C IF A3 = ALPSIO AND F3 IS BEST, GO INVOKE SIDE CONSTRAINT CONMt 693 

C MODIFICATION. C0NMI894 

ALPA=1 . -ALP5ID/A3 COHM1895 

IF (ABS(ALPA).LT.t . 0E-20 . AND . IBEST . EQ . 3 ) GO TO 20 C0NM1696 

C - - - CONMt 897 

C «#*»#*«**# 3 - POINT INTERPOLATION *»«*«« m»* CONMt 898 

C CONMt 899 

ALPNC=ALPSID COMM1900 

ALPCA=ALP5ID COUTH 901 

ALPFES=-t . CONMt 902 

ALPMIN=-1. CONMt 903 

IF (NCON.EQ.O) GO TO 440 CONMt 904 

111=0 CONMt 905 

390 111 = 111 + 1 CONMt 906 

Cl =Gt I III ) CONM1907 

C2=G2 ( III) CONM1 908 

C3=G( III ) COUTH 909 

IF (ISC(III).EQ.O) GO TO 400 COUTH 910 

C - - CONMt 911 

C LINEAR CONSTRAINT. FIND ALPFES ONLY, ALPLN SAME AS BEFORE. CONMt 912 

C - - COUTH 91 3 

IF (C1.LE.CTBM) GO TO 430 C0NM1914 

11=1 CONMt 91 5 

CALL CNMN07 ( II , ALP ,ZRO,ZRO,C1 , A3.C3 ,ZRO,ZRO > COUTH 916 

IF (ALP. GT. ALPFES) ALPF ES = ALP CONM1917 

GO TO 430 CONMt 918 

400 CONTINUE CONM1919 

C - COUTH 920 

C NON-LINEAR CONSTRAINT C0NM1921 
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C — C0NN19C2 

H=2 CONM1923 

CALL CNMH07 ( II , ALP ,ZRO, ZRO, Cl » A2 ,C2 , A3,C3 ) C0MM1924 

IF (ALP.LE.ZRO) GO TO 430 CONH1 925 

IF (Cl .GE.CT.AND.C1 .LE.O. ) GO TO 410 CONMI926 

IF (Cl .GT.CTAM.OR.C1 .LT.O. ) GO TO 420 COMM1927 

C ALP IS MINIMUM MOVE. UPDATE FOR NEXT CONSTRAINT ENCOUNTER. COMM 1928 

410 ALPA=ALP CONM1929 

CALL CNHN07 ( II , ALP , ALPA ,ZRO,C1 , A2 ,C2 , A3 ,C3 ) CONM1930 

IF ( ALP. LT . ALPCA. AND . ALP . GE . ALPA ) ALPCA=ALP CONM1931 

go to 430 comma 

420 CONTINUE COMM 933 

IF ( ALP.GT.ALPFES.AND.C1 .GT.CTAM) ALPFES=ALP COIIM1934 

IF ( ALP. LT . ALPNC . AND . Cl .LT.O. ) ALPNC=ALP CONM1935 

430 CONTINUE CONM1936 

IF ( III . LT.NCON) GO TO 390 C0NM1937 

440 CONTINUE CONM1938 

IF ( LINOBJ.GT.O. OR. SLOPE. GT. 0. ) GO TO 450 CONM1939 

C - CDNM1940 

C CALCULATE ALPHA TO MINIMIZE FUNCTION C0Nni941 

C CONM1942 

11=3 CONM l 941 

IF ( A2.GT.A3. AND . ( IGOOD2 . EQ. 0 . AND . I8EST . EG. 2 ) ) 11=2 C0NM1944 

CALL CNMN04 ( II , ALPMIN,ZRO,ZRO, F 1 .SLOPE , A2 , F2 , A3 , F3 , ZRO , ZRO ) C0NM194S 

450 CONTINUE CONM1946 

C C0NM1947 

C PROPOSED MOVE C0NM1948 

C COMM 1 949 

C MOVE AT LEAST ENOUGH TO OVERCOME CONSTRAINT VIOLATIONS. CONM1950 

A4=ALPFE3 C0NM1951 

C MOVE TO MINIMIZE FUNCTION. CONM1952 

IF ( ALPMIN.GT. A4) A4=ALPMIN CONI11 953 

C IF A4. LE.O. SET A4 = ALPSIO. COHM1954 

IF (A4.LE.0.) A4=ALP5ID CONM1955 

C LIMIT MOVE TO NEW CONSTRAINT ENCOUNTER. CONM1956 

. IF ( A4.GT. ALPLN) A4=ALPLN COUM1957 

IF (A4.GT. ALPNC ) A4=ALPNC C0NM1958 

C LIMIT MOVE TO RE-ENCOUNTER CURRENTLY ACTIVE CONSTRAINT. CONMI959 

IF (A4.GT. ALPCA) A4=ALPCA CONM1960 

C LIMIT A4 TO 5.*A3. CONM1961 

IF (A4.GT.(5.*A3) ) A4=5.»A3 CONM1962 

C UPDATE DESIGN. C0KH1963 

IF ( IBE5T.NE. 3. OR. NCON.EQ.O ) GO TO 470 CONM1964 

C STORE CONSTRAINT VALUES IN G2. F3 IS BEST. F2 IS NOT. C0NM1965 

DO 460 1=1 iNCON C0NM1966 

G2( I )=G( 1 1 CONT1 1 967 

460 CONTINUE C0NM1968 

470 CONTINUE CONM1969 

C IF A4=A3 AND IGODDI=0 AND IGOOD3=1, SET A4=.9*A3. CONMI970 

ALP=A4-A3 C0NM197I 

IF UIGOOD1 .EQ.O.AND.IGOOD3.EQ.1 ) . AND . ABS( ALP 1 . LT . 1 .0E-20) A4= . 9-AC0NM1 972 
13 CONM1973 

c C0NM1974 

C MOVE A DISTANCE A4*S CONM1975 

C 

ALP=A4-A3 COUN1 977 

ALPTOT=ALPTOT*ALP C0IIM1978 

DO 400 1=1 iNDV COMM 1 979 

Xm=X(I)+ALP*S(I) COMM 1 980 

40C CONTINUE C0NM1981 


IF ( IPRINT.LT. 5) GO TO 510 COHI11902 

WRITE ( 6*720 ) C0NM1903 

WRITE (6,740) A4 CONH1984 

IF INSCAL.EQ.O) GO TO 500 C0NM1985 

DO 490 1=1 ,NDV CONN1986 

490 Gl I ) = SCAL( I )»X( I ) C0NMI987 

WRITE (6,750 ) ( G( I ) » 1= 1 ,NDV ) CONM190S 

GO TO 5 1 0 COIITI1 989 

500 WRITE (6,750) ( X( I ) »I=1 .NDV ) CONI11990 

510 CONTINUE C0NM1991 

c — - COtIMt 992 

C UPDATE FUNCTION AND CONSTRAINT VALUES CONM1 993 

C - COMM I 994 

NCAL( 1 )=NCAL( 1 1 + 1 CONM1995 

JGOTO=3 CONMt 996 

RETURN CONftl 997 

520 CONTINUE CONI11998 

F4=CBJ COUTH 999 

IF { IPRINT . GE . 5 ) WRITE (6,760) F4 CONMSOOO 

IF (IPRINT.LT. 5. OR. NCON.EQ.O) GO TO 530 CONM2001 

WRITE (6,770) CONM2002 

WRITE (6,750) IG( I ) >1=1 >NCON ) C0NM2003 

530 CONTINUE COMI12004 

C DETERMINE ACCAPT ABILITY OF F4. CONM2005 

IG00D4=0 C0NM2006 

CV4=0 . C0NN2007 

IF (NCON.EQ.O) GO TO 550 CDNH2008 

DO 540 1=1 ,NCON CONM2009 

CC=CTAM COHM2010 

IF (ISC(I).GT.O) CC=CTBM C0NM2011 

C1=G(I)-CC C0NM201 2 

IF (C1.GT.CV4) CV4=C1 COHM2Q1S 

540 CONTINUE CONM2014 

IF (CV4.GT.0.) IG0DD4=1 CONM2015 

550 CONTINUE CONM2016 

ALP=A4 COHM2017 

0BJ=F4 CONM201 8 

C - CONM201 9 

C DETERMINE BEST DESIGN C0NM2020 

C CONH2021 

GO TO (560,610,660 J.IBEST CONM2022 

560 CONTINUE CQNM2023 

C CHOOSE BETWEEN FI AND F4. COHM2024 

IF ( IGOOD 1 . EQ . 0 . AND , IGQ0D4.EQ. 0 ) GO TO 570 C0NM2025 

IF (CV1.GT.CV4) GO TO 710 COHM2026 

GO TO 560 CONN2027 

570 CONTINUE CONM2028 

IF (F4.LE.F1) GO TO 710 CONM2029 

580 CONTINUE CCNM2030 

C FI IS BEST. CONM2031 

ALPT0T=ALPT0T-A4 CONM2032 

OBJ=F1 COHM2 033 

DO 590 1=1, NDV C0NM2034 

X(I)=X(I)-A4*S(I) CONM2035 

590 CONTINUE CONM2036 

IF (NCON.EQ.O) GO TO 710 C0NM2037 

DO 600 1=1 ,NCON C0HMC038 

G( I )=G1 < I ) CONN2039 

600 CONTINUE CONM2040 

GO TO 710 CONM204I 
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610 

CONTINUE 

C0NM2042 


ROUTINE TO FIND FIRST XBAR.GE.EPS CORRESPONDING TO A REAL ZERO 

C0NH2102 

C 

CHOOSE BETWEEN F2 AND F4. 

CONM2043 

z 

OF A ONE-DIMENSIONAL FUNCTION BY POLYNOMIEL INTERPOLATION. 

CONM21 03 


IF ( IG00D2 . EQ . 0 . AND . IG00D4 . EQ . 0 ) GO TO 620 

CONM2044 

z 

BY G. N. VANDERPLAATS APRIL, 1972. 

CONM2104 


IF (CV2.GT.CV4) GO TO 710 

CONM2045 

z 

NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 

CONM21 05 


GO TO 630 

CONM2046 

c 

II = CALCULATION CONTROL. 

CONM2106 

620 

CONTINUE 

CONM2047 

c 

1* 2-POINT LINEAR INTERPOLATION, GIVEN XI, Tt , X2 AND Y2. 

CONH2107 


IF (F4.LE.F2) GO TO 710 

CONN2048 

c 

2: 3-POINT QUADRATIC INTERPOLATION, GIVEN XI, Y1, X2, Y2, 

CON112 1 06 

630 

CONTINUE 

CONMC049 

C 

X3 AND Y3. 

COMF12109 

C 

F2 IS BEST. 

COHM2050 

c 

EPS MAY BE NEGATIVE. 

CQKM2110 


OBJ=F2 

CONM2051 

c 

IF REQUIRED ZERO ON Y DOES NOT EXITS, OR THE FUNCTION IS 

CONM21 1 1 


A2=A4-A2 

CONM2052 

c 

ILL-CONDITIONED, XBAR = EPS-1.0 WILL BE RETURNED AS AN ERROR 

CONM2112 


ALPTOT=ALPTOT-A2 

CONM2053 

c 

Indicator. 

CONM21 13 


DO 640 1=1 ,NDV 

CONM2054 

c 

IF DESIRED INTERPOLATION IS ILL-CONDITIONED, A LOWER ORDER 

COHM21 14 


xm=xm-A2«sm 

CONM2055 

c 

INTERPOLATION, CONSISTANT WITH INPUT DATA, HILL BE ATTEMPTED AND 

CONM21 15 

640 

CONTINUE 

COUM2056 

c 

II WILL BE CHANGED ACCORDINGLY. 

CONN2116 


IF (NCON.EQ.O) GO TO 710 

COHM2057 


XBAR 1 =EPS- 1 . 

courts 1 1 7 


DO 650 1=1 ,NC0N 

CONM2O50 


XBAR =XB API 

C0m2118 


Gt I )=G2( I ) 

CONM2059 


JJ = 0 

CONM2119 

650 

CONTINUE 

CONM2060 


X21 =X2-X1 

COMM2120 


GO TO 710 

CONM2061 


IF ( ABS( X21 ).LT.1.0E-20) RETURN 

CONM2121 

660 

CONTINUE 

CONM2062 


IF (II.EQ.2) GO TO 30 

COHM2122 

C 

CHOOSE BETWEEN F3 AND F4. 

C0NM2063 

c 


CONM2123 


IF t IGOOD3.EQ.O.AND.IGOOD4.EQ.O ) GO TO 670 

C0NM2064 

10 

CONTINUE 

CONM21 24 


IF (CV3.GT.CV4) GO TO 710 

CONM2065 

c 


■-CONM21 25 


GO TO 600 

CONM2066 

c 

11=1 i 2-POINT LINEAR INTERPOLATION 

CONM2126 

670 

CONTINUE 

CONM2067 

c 


-CONM2 127 


IF (F4.LE.F3) GO TO 710 

CONM2066 


11=1 

CONM21 28 

680 

CONTINUE 

CONM2069 


YY=Y1«Y2 

CONM21 29 

C 

F3 IS BEST. 

CONM2070 


IF ( JJ.EQ.O.OR.YY.LT.O. ) GO TO 20 

CONM21 30 


0BJ=F3 

CONM2071 

c 

INTERPOLATE BETWEEN X2 AND X3. 

CONM2131 


A3=A4-A3 

CONM2072 


DY=Y3-Y2 

CONM2132 


ALPT0T=ALPT0T-A3 

CQNN2073 


IF (ABS(OY).LT.I .0E-20) GO TO 20 

C0NM2133 


DO 690 1=1 , NDV 

CONM2074 


XBAR=X2 + Y2*( X2-X3 )/DY 

CONM21 34 


xm=xm-A3»sm 

CONM2075 


IF ( XBAR.LT.EPS) XBAR=XBAR1 

C0NM2135 

690 

CONTINUE 

CONM2076 


RETURN 

C0NM2136 


IF (NCON.EQ.O 1 GO TO 710 

C0NM2077 

20 

DY=Y2-Y1 

C0NM2137 


DO 700 1=1 »NCON 

COHM2076 

c 

INTERPOLATE BETWEEN XI AND X2. 

CONM2138 


GI1)=G2(I) 

C01U12079 


IF (ABS(DY).LT.I -OE-20) RETURN 

CONM21 39 

700 

CONTINUE 

CONM2080 


XBAR=X1 +Y1*( XI -X2 )/DY 

CONM2140 

710 

CONTINUE 

CONM2081 


IF (XBAR.LT.EPS) XBAR=XBAR1 

C0NM2141 


ALP=ALPTOT 

CQNM2062 


RETURN 

CONM2142 


IF ( IPRINT.GE .5 ) WRITE (6.790J 

C0NM2083 

30 

CONTINUE 

CONM2143 


JG0T0=0 

CONM2084 

c 


•-C0NM2144 


RETURN 

CONM2085 

c 

11=2 « 3-POINT QUADRATIC INTERPOLATION 

C0NM2145 




£ 



C 





•“LUNrlfc. I No 

C 

FORMATS 

CONM2087 


JJ=1 

C0NM2147 

c 




X31 =X3-X1 

CONM2148 

c 


C0NM2069 


X32=X3-X2 

CONM2149 

c 


CONM2090 


QQ=X21*X31*X32 

CDNM2150 

720 

FORMAT (/5X.25HTHREE- POINT INTERPOLATION) 

CONM2091 


IF (ABS(QQ).LT.I .OE-20) RETURN 

C0NM2151 

730 

FORMAT ( /////58H* » * CONSTRAINED ONE-DIMENSIONAL SEARCH 

INFORMATIC0NM2092 


AA=( Y1*X32-Y2#X31 +Y3*X21 )/QQ 

CONM2152 


ION * » #1 

C0NM2093 


IF (ABS(AA).LT.I. 0E-20) GO TO 10 

CONM2153 

740 

FORMAT ( //5X» 15HPR0P05ED DESIGN/5X » 7HA LPH A = ,E1 2.5/5X.6HX-VECTOR ) C0NM2094 


BB=( Y2-Y1 )/X21-AA«(X1+X2) 

CONM2154 

750 

FORMAT ( 1X»6E1 2 .4) 

CONN2095 


CC=Y1-X1*(AA"X1+BB) 

CONM21 55 

760 

FORMAT t/5X,5H0BJ =,E13.5) 

CONM2D96 


BAC=BB*BB-4.*AA*CC 

CONM2156 

770 

FORMAT ( /5X » 1 7HCONSTRAINT VALUES) 

CONHC097 


IF (BAC.LT.O. ) GO TO 10 

CONM2157 

760 

FORMAT </5X»23HTWO-POINT INTERPOLATION) 

CONM2O90 


BAC=SQRT( BAC ) 

CONI121 58 

790 

FORMAT (/5X.35H* * * END OF ONE-DIMENSIONAL SEARCH) 

CONM2099 


AA= . 5/AA 

CONH2159 


END 

CONM21O0 


XBAR=AA#( BAC-BB ) 

CONM2160 


SUBROUTINE CNMN07 ( II ,XBAR , EPS, XI , Y1 ,X2 , Y2 ,X3 , Y3 ) 

CONM2101 


XB2=-AA»( BAC+BB ) 

C0NN21 6 t 
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IF (XBAR.LT.EPS) XBAR=XB2 C0HM216Z 

IF (XB2.LT.XBAR.AND.XB2.GT.EPS) XBAR=XB2 CONM2163 

IF (XBAR.LT.EPS) XBAR=XBAR1 CONMZ 16* 

RETURN CONHC 165 

END CONM2166 

SUBROUTINE CNMNOB ( NOB.NER ,C ,MS1 ,B ,N3 ,N9 ,N5 ) CONMZ 167 

DIMENSION C(N*), B(N3,N3), MSHN5) C0HMZ168 

C ROUTINE TO SOLVE SPECIAL LINEAR PROBLEM FOR IMPOSING S-TRANSP05E COIIM2169 

C TIMES S.LE.I BOUNDS IN THE MODIFIED METHOD OF FEASIBLE DIRECTIONS. CONMZ 1 70 

C BY G. N. VANDERPLAATS APRIL > 1972. CONM2171 

C NASA-AME5 RESEARCH CENTER, MOFFETT FIELD, CALIF. CONM2172 

C REF. 'STRUCTURAL OPTIMIZATION BY METHODS OF FEASIBLE DIRECTIONS' ,CONM2173 

C G. N. VANDERPLAATS AND F. MOSES, JOURNAL OF COMPUTERS CONN217* 

C AND STRUCTURES, VOL 3, PP 739-755, 1973. CONMZ 1 75 

C FORM OF L. P. IS BX=C WHERE 1ST NDB COMPONENTS OF X CONTAIN VECTORCONM2 1 76 

C U AND LAST NDB COMPONENTS CONTAIN VECTOR V. CONSTRAINTS ARE CONMZ 1 77 

C U.GE.O, V.GE.O, AND U-TRAN5P0SE TIMES V = 0. CONMZ 1 76 

C HER * ERROR FLAG, IF NER.NE.O ON RETURN, PROCESS HAS NOT CONNS 179 

C CONVERGED IN 5»NDB ITERATIONS. CONM2180 

C VECTOR M51 IDENTIFIES THE SET OF BASIC VARIABLES. C0NMZ161 

C CONM21B2 

C CHOOSE INITIAL BA5IC VARIABLES AS V, AND INITIALIZE VECTOR MSI CONMZ 1 83 

C - CONMZ 18* 

NER=1 CONMZ 185 

M2=Z«NDB CQMH21 66 

C CALCULATE CBMIN AND EPS AND INITIALIZE MSI. C0NHC187 

EP3=-1 .0E+10 CONM2188 

CBMIN=0. CONMZ 189 

DO 10 1=1, NDB CONMZ 190 

BI=B( 1,1) CONMZ I 91 

CBMAX=0. CONM21 92 

IF (BI.LT.-1.0E-6) CBMAX=C( I )/BI CONMZ193 

IF (BI.GT.EPS) EPS=BI CONMZ19* 

IF (CBMAX.GT. CBMIN) CBMIN=CBMAX CONMZ 195 

10 MSI ( I )=0 CONMZ 196 

EP5= .0001#EPS CONMZ 1 97 

IF ( EPS. LT.-1 .0E-10) EPS=-1 .0E-10 CONM2I98 

IF (EPS. GT.-. 0001 ) EPS=-. 0001 CONMZ 1 99 

CBMIN=CBMIN*1 .OE-6 CONMZZ00 

IF (CBMIN. LT.1.0E-10) CBMIN=1 .OE-10 CONMC201 

ITER1 =0 CONMZZ02 

NMAX=5*NDB CONM2203 

C CONM220* 

c mihmuhiihiihj BEGIN NEW ITERATION «hhm»«mimhh»CONMZZ05 

C CONM2206 

20 ITER1 =ITER1 *1 CONM2207 

IF ( ITER1 .GT.NMAX) RETURN CONMZZ06 

C FINO MAX. C( I )/B( 1,1) FOR 1=1, NDB. CONM2209 

CBMAX= . 9«CBMIN CONM2Z1 0 

ICHK=0 COHMZZ11 

DO 30 1=1, NDB CONM221 2 

Cl =C( I ) COMM221 3 

BI=B(I,I) C0NMZZ1* 

IF (BI-GT.EP3. OR .Cl .GT.O. ) GO TO 30 COMMZZ15 

CB=C1/BI CONM2216 

IF (CB.LE.CBMAX) GO TO 30 COMM2217 

ICHK=I CONM2218 

CBMAX=CB C0NM2219 

30 CONTINUE CONM2220 

IF (CBMAX.LT. CBMIN) GO TO 70 CONM2221 


IF (ICHK.EQ.D) GO TO 70 CONM222Z 

C UPDATE VECTOR MSI . COMM2223 

JJ=ICHK COl 111222* 

IF ( MSI ( JJ ) . EQ . 0 1 JJ=ICHK + NDB CONM22C5 

KK=JJ*MDB CONM2ZZ6 

IF (KK.GT.M2) KK=JJ-NDB CDNM2227 

MS I ( KK ) = ICHK C0NM2C2S 

MSI ( JJ ) = 0 CONI12229 

C C01IM22 30 

C PIVOT OF B( ICHK, ICHK) C0NM2231 

C — - COUM2232 

BB= 1 . /B( ICHK , ICHK ) CONM2233 

DO *0 J=1 ,NDB CONM223* 

*0 B( ICHK.J )=BB*B< ICHK.J) C0NM2235 

Cl ICHK )=CBMAX CONM2236 

Bl ICHK, ICHK )=BB CONM2237 

C ELIMINATE COEFICIENTS ON VARIABLE ENTERING BASIS AND STORE CONM223Q 

C COEFICIENTS ON VARIABLE LEAVING BASIS IN THEIR PLACE. CONM2239 

DO 60 1=1 ,NDB CONM2290 

IF II. EQ. ICHK) GO TO 60 CONM22A1 

BB1=B( I, ICHK) CONM22A2 

Bl I , ICHK ) = 0 . CONM2293 

DO 50 J= 1 ,NDB CONM22A* 

50 Bl I , J )=B( I , J )-BB1 «Bl ICHK , J ) CONM2245 

ClI) =Cl I ) -BB1 **CBMAX CONM2ZA6 

60 CONTINUE CONM2247 

GO TO 20 CONM22*8 

70 CONTINUE CONM2299 

NER=0 CONM2250 

C CONM2251 

C STORE ONLY COMPONENTS OF U-VECTOR IN 'C*. USE B(I»1) FOR CONM2252 

C TEMPORARY STORAGE CONM2253 

C — CONM225* 

DO 80 1=1, NDB CONM2255 

Bl 1 , 1 >=C(I> CONM2256 

80 CONTINUE CONM2257 

DO 90 1=1, NOB CONM2258 

C(I)=0. COHM2259 

J = M51 ( I ) C0NM2260 

IF (J.GT.O) C( I )=B( J, 1 ) COMM2261 

IF (C(I).LT.O.) C(I)=0. CONM2262 

90 CONTINUE COMH2263 

RETURN CONM226* 

END CONM2265 

00 

00 




APPENDIX C 


LIST OF SYMBOLS 



design variable coefficient of profile shape function; 
Equation (14) 

blade chord, meters 

invariant point index; Equation (5) ; also, index for 
surface shape functions; Equation (14) 

dummy index; Equation (11) 

number of independent flow or geometrical variables to 
be perturbed; Equation (1) 

total number of shock points and high-gradient maxima 
points; Equation (13) 

total number of invariant points, equal to n + 2 ; 

Equation (5) 

jth arbitrary geometric or flow parameter to be perturbed; 
Equation (8) 

calibration flow value of q ^ ; Equation (7) 
base flow value of q^ ; Equation (7) 

approximate flow solution for arbitrary flow quantity; 
Equation (1) 

calibration flow solution for value q c of arbitrary 
parameter; Equation (3) c j 

base flow solution for values q of arbitrary param- 
eters; Equation (1) °j 

jth perturbation solution per unit change of perturbed 
parameter q ^ ; Equation (3) 

strained x coordinate; Equation (2) 

nondimensional blade-fixed orthogonal coordinate; 

Equation (1) , normalized by C 

nondimensional blade-fixed orthogonal coordinate related 
to jth calibration solution; Equation (3) 
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x.. straining function associated with x coordinate; 

Equation (2) 

x, straining function associated with i th invariant point; 

1 Equation (5) 

6x unit displacement in x direction associated with Lth 

w invariant point; Equations (6) and (10) 

e. desired perturbaiton change of j th geometric or flow 

- 1 parameter; Equation (8) 

e. perturbation change of j th geometric or flow parameter 

- 1 between base and calibration flows; Equation (7) 

Subscripts 

i denotes quantities associated with i th invariant point 

j denotes perturbation quantities 

Superscripts 

o denotes base flow quantities 

c denotes quantities associated with calibration flows 
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TABLE 1 


COMPARISON OF FINAL DESIGN VARIABLES AND OBJECTIVE FUNCTION 
WHEN EMPLOYING FULL NONLINEAR TSONIC SOLUTIONS OR 
PERTURBATION METHOD FOR DIFFERENT CHOICES OF 
CALIBRATION SOLUTION MATRIX FOR SIX DESIGN 
VARIABLE SUBCRITICAL OPTIMIZATION CASE 
STUDY USING MAXIMUM SUCTION SURFACE 
VELOCITY DIFFUSION OBJECTIVE 


Design 

Variables 


Objective 

Function 

KOCR I T j ZM 1 P I TMX | THLE 

INITIAL 

Baseline 
Upper Bound 
Lower Bound 

-10.0000 

0.0000 

-15.0000 

0.2500 

0.6000 

0.2000 

0.4500 

0.5500 

0.2000 

1.50000 

4.0000 

0.5000 

0.0500 

0.1000 

0.0300 

0.0050 

0.0120 

0.0030 

1.8400 

FINAL 

TSONIC SOLUTIONS ONLY RESULTS 
IOPT=l 

Final 

-7.3854 

0.2000 

0.5500 

0.9220 

0.0300 

0.0060 

1:6764 

PERTURBATION SOLUTION RESULTS 
IOPT=2 

CASE 1 

Calibration 

Final 

-7.0000 

-9.1904 

0.2000 

0.2342 

0.5500 
0 . 5555 

0.9400 

0.9371 

0.0300 

0.0358 

0.0060 

0.0052 

1.6918 

CASE 2 

Calibration 

Final 

-9.0000 

-8.8994 

0.2350 

0.3098 

0.4950 

0.5500 

1.6500 

0.7463 

0.0550 

0.0300 

0.0055 

0.0050 

1.6829 

CASE 3 

Calibration 

Final 

- 11.0000 

-9.7099 

0.2250 

0.3162 

0.4050 

0.5500 

1.3500 

1.1332 

0.0450 

0.0323 

0.0045 

0.0055 

1.7304 

CASE 4 

Calibration 

Final 

-8.0000 

-8.8860 

0.2300 

0.2814 

0.5000 

0.5500 

1.0000 

0.9023 

0.0350 

0.0370 

0.0058 

0.0051 

1.6986 

CASE 5 

Calibration 

Final 

-7.0000 

-9.1846 

0.2000 

0.2314 

0.5500 

0.5500 

0.9000 

0.9397 

0.0300 

0.0363 

0.0070 

0.0053 

1.6909 

CASE 6 

Calibration 

Final 

- 11.0000 

-7.1492 

0.6000 

0.3166 

0.2000 

0.5500 

4.0000 

1.2202 

0.1000 

0.0300 

0.0120 

0.0046 

1.7332 

IOPT=3 

Final 

-8.0297 

0.2000 

0.5500 

0.7356 

0.0363 

0.0039 

1.6989 
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OBJECTIVE IS TO MINIMIZE: 



Figure 3.- Illustration of physical basis of optimization problem involving 
blade surface contouring to tailor the surface pressure distribution 

to a desired distribution. 





Figure 4.- Comparison of perturbation predicted and full nonlinear 
results for final design variables and objective function for 
5 design variable supercritical case study with sur- 
face pressure tailoring objective. 
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II 



800 


O Full nonlinear 



OBJ/OBJ ± 

Figure 5.- Comparison of computational work and objective function 
reduction per optimization search cycle when employing pertur- 
bation method after first search cycle (00 or when using 
full nonlinear solutions (O) for a 5 design variable 
supercritical case study with surface pressure 
256 tailoring objective. 
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